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domadaire des programmes informatiques I 



la 1 er linh 



BONNE ANNEE $7C1 



Bravo, vous avez bien sui\ 
cours d'assembleur de I'HHH- 
Hebdo, vous n'etes pas 
comme ces ignares qui ne sa- 
vent pas encore que 1 1 10001 1 
est egal a FOZERT en octago- 
nal ou qui conlinuenl de vivre 
normalement sans etre capa- 
bles de traduire le decimal. 
I'hexadecimal. le pneumonal. 
le durandal ou Ihexachloro- 
phene de parcimonial. Vous 
vous jouez de ces traductions 
comme un equilibriste de la 
polyglottinformatie el vous 
vous riez de ce 7C1 en hexa 
qui est evidemment egal a 
1985 en decimal. Voire profes- 
seur est done content de vous. 
vous gagnez un bon point, 
vous repassez par la case de- 
part, vous n'allez pas en pri- 
son et vous pouvez continuer 
la partie. 

Mais non, pas la partie de Mo- 
nopoly ! La partie de rigolade 
a laquelle nous vous invitons 
chaque semaine et qui va 
continuer pendant les 52 se- 
maines qui nous arrivenl en 
pleme poire des le premier 
janvier. 



DEBOUT 
LES MORTS ! 

Ceci dit Abes. . je trouve 
quand meme que. malgre nos 
efforts, cela ne va pas assez 
vite. on s'endort dans ce ca- 
nard, on se traJne. il y a une 
eternite qu'il ne se passe rien ! 
Et ce n'est pas parce qu'il y a 
un bout de bande dessinee 
cette semaine que je vais 
changer d'avis. II faut 'aire du 
nouveau et prendre des reso- 
lutions pour la nouvelle annee. 
c'esl quelque chose qui se fail, 
et pour une fois nous allons 
(aire comme les autres. En 
avant : petit Papa Noel, petit 
J6sus. monsieur le Ministre de 
la communication, monsieur 
Fabius. mon general, voiia 
voici les bonnes resolutions de 
voire Hippocampe qui n'a pas 
peur des gros. 



MEME LES 
AMERICAINS 
ILS L'ONT JAMAIS 
FAIT CA ! 

Dix mille balles de prix pour le 
meilleur programme du mois. 
ces! pas mal. mais depuis un 
an que ce concours existe, il 
faudrait peut-etre faire autre 
chose, du bon. du nouveau. du 
qui remue. Allez, on change 
tout: vous voulez gagner un 
Macintosh ? Un ZX 81 ? Une 
imprimante ? Un panier garni ? 
Une nuit avec la mere Denis ? 
Un tuyau pour le tierce de di- 
manche ? Comment, vous ne 
savez pas ? Mais choisissez. 
merde e'est vous qui gagnez 
les concours. pas moi ! Hein. 
vous etes plusieurs ? Mais bon 
sang, e'est vrai ca ! Vous 
navez peut-etre pas les 
memes gouts. Vous preferez 
un cheque pour vous acheter 
ce que vous voulez ? Mais ca 
me lout mes bonnes resolu- 
tions en I'air, comment je vais 
(aire moi ? Vous etes emmer- 
dants, si les lecteurs se mel- 
tent a faire la loi. ou allons- 
nous ? Vous voulez ma peau 
ou quoi ? 

Bon. tant pis on garde le 
meme principe. vous I'aurez 
voulu ! Mais on va quard 
meme monter le prix a 2 bn- 
ques. deux batons pour le plus 
costaud du mois. Et paf. 100 
% d'inflation. meme Mitterrand 
il est pas capable de faire 
mieux ! 

PARIS 

SAN FRANCISCO 
DANS UN PANIER 
A CHAT 

II me reste le concours trimes- 
triel. et je fais ce que je veux 
avec le concours trimeslriel. 
je ne vous demande meme 
pas voire avis pour le 
concours trimeslriel, vous 
i'avez dans le dos avec le 



concours trimeslriel ! On ga- 
gnait un voyage chez les cow- 
boys pour une personne ? 
Bourn, on double: deux per- 
sonnes s'envoleront chaque 



gers restent les memes que 
ceux du Mac'do du coin de la 
rue. Vous pourrez ainsi emme- 




trimestre pour San Francisco 
avec des bons pour six nuits 
d'hotel et deux billets davion 
permettanl de visiter huit 
autres villes des Unis States of 
Amerique. L hotel passe du 



ner qui vous voulez avec vous 
sans etre oblige de le planquer 
dans vos valises ou dans la 
soute avec les chiens el les 
chats. 



MOU LE 
PROGRAMME, 
MOU ! 

Pour les deuligneurs qui vien- 
nent de debarquer. pas bou- 
ger. rester exactement the 
same: deux logiciels chaque 
semaine pour le meilleur. et 
e'est bien paye pour ces fai- 
neants ! Eh, Oh. les feignas- 
ses sonl majoritaires. ici ce ne 
sont pas les Nouvelles Litterai- 
res. on n'est pas la pour se ti- 
tiller les cellules grises ' Ah 
bon, j'savais pas: cinq lots de 
consolation par semaine. e'est 
bon ? Oui ? Ok. Avanti ! 

HERSANTOGiCIEL 

Bien. quest ce qu'on pourrait 
faire de plus ? Comment ne 
pas se laire boufler par ces 
immenses groupes de presse 
qui ne vont pas tarder un joui 
ou lautre a nous sortir un heb- 
domadaire avec de [dies 
images et beaucoup de budget 
de pubhcite ? J'ai une idee. Si. 
si. je vous assure, j'ai une 
idee. 9a m'arrive quelques 
lois: nous allons devenir nous- 
meme un immense groupe de 
presse et (aire une immense 
campagne de publicity, de lat- 
fichage sur les abns-bus, de la 
radio, des pages dans la 
presse. des spots sur TF1. sur 
A2. sur FR3. sur Canal plus ou 
moins, sur Tele Kremlin, sur 
MOON T.V. de lallichage sau- 
vage sur les jaquetles d'aca- 
demiciens. de la distribution 
de tracts dans los couloirs de 
I Armee du Salut, nous allons 
exposer au salon de ['Agricul- 
ture, chez Conforama et a la 
toire a la saucisse de Monies- 
les-Wallet, nous organiserons 
le festival international du logi- 
ciel orthopedique et nous de- 
cernerons chaque dimanche 
matin le prix inter-paroisse du 
programme de culte en direct 
de Noire Dame de Paris et 
croyoz-moi, ca ne va pas etre 
trisle ! Tiens. j'ai une autre 



idee, dectdement c'esl 
bon jour pour les redae'ehefs 
nous allons rajouter des pages 
a I'hebdo. Tout en gardant 
bien sur des programmes pour 
vos machines cheries, vous 
trouverez une bande desskita 
toutes les semaines. et une 
bonne, comme celle de ce nu- 
mero ! 

TELE 7 
JOURSGICIEL 

Diles. approchez. plus pres. 
ecoulez: j'ai une troisieme 
idee, incroyable. non ? Alloz. 
je vous la livre, lei quel: linfor- 
malique a un rapport avec la 
tele puisque la quasi tot.tiile 
des ordinateurs fonclionnent 
sur une tele. Done, nous allons 
regarder la tele AVANT vous 
et vous dire ce que nous on 
pensons Vous pourre; .unsi 
continuer a casser de lenya- 
lusseur sur votre micro pen- 
dant que la tele sur laquelle 
vous jouez diffuse une nullite 
ou bien sauvegarder voire jcu 
pour foncer voir le seul film re- 
gardable de lannee sur TF1 , 

EBDO CINEMA 
+ HHHH 

Bonne mere, comme dit la 
mienno qui est encore a Mar- 
seille et quo je lui fats la blse, 
et a mon papounet aussi. j'ai 
honle: j'ai encore une idee a In 
cong ! Je peux la dire. 
maman ? Oui ? Merci: quand 
vous vous etes bien eclate 
avec le dernier logicicl qui 
viont do sortir. quand vous 
avez rcn.ir.il' remission du 
siecle de Canal moins. quand 
vous vous 6tes dogllnguo les 
yeux avec le programme de 
I'HHHMebdo, comment pouvez 
vous encore vous envoyer en 
I'air avec un ecran qui no solt 
pas cathodiquo ' Commonl. 
hein ? Comment ? Elemen- 
tairo. mon chcr Zaxxon: avoc 

Suite page 2 



BIDOUILLE GRENOUILLE 

Ou comment tricher, pirater, modifier, trafiquer, magouiller, bidouiller et grenouiller avec 

les logiciels du monde entier. 

Mais dans la legal ite , au moins? Of course, mon general! Lire page 12 


C'est nouveau, 
ca vient de sortir : 

L'actualite de la-micro-informatique. Lire 
page 9, 10. 


DJIIIIIIIIII 

Les petlts Mickeys d'EDIKA sont a la derniere page. 




PARTIE DE CARTE 

Vous trouvez a la page 8 un jeti de carte pour transformer 
votre Apple en a peu pres n'importe quoi. 



CONCOURS PERMANENTS 

Nouveau: 20 000 francs de prix au meilleur pro- 
gramme de CHAQUE MOIS. 

1 voyage pour 2 personnes en CALIFORNIE au 
meilleur logiciel CHAQUE TFtlMESTRE (rdglement 
en page intdrieure). 



Formation a I'assembleur 

Vous I'avez voulu. vous I'avez eu ! Forma- 
tion a I'assembleur sous deux formes, celle 
du professeur et celle du bidouilleur : pour 
tous les gouts ! Lire page 17. 
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_CATA-REM~ 

Bonjour. Vous dtes en direct de la course autour du 
catalogue. Pas de CATA-Marrants, mais ca peut aniver 
si vous utilisez ce programme qui vous permet d'tns- 
crire du texte dans votre Catalogue. Cect est tres prati- 
que pour (aire des commentaires sur des noms de fi- 
chiers ou afficher des copyrights. 

JEAN-CLAUDE DEVAL 

Mode <T emptoi: 

A la Eigne 35, te A peut etre change contre tout autre caractere. II 
n'est pas affiche" a I'ecran, mais peut etre visible en eHectuant un 
Dump du Catalogue. 



APPLE 




TEXT : HOME 

INVERSE : GOSUB 470 

NORMAL 
S ■ - I633& 

DNERR GOTO 590 
J* = CHR* (10): REM CTRL J 
U* = CHR* (21): REM CTRL 



U 



{->» 



RC* = CHR* (13) 

D* - CHR* <4): REM CTRL D 

B* = CHR* (7): REM CTRL G 

(BELL) 
H* - CHR* (8): REM CTRL H 
FOR 1 -= 1 TO B:G* - G* + H*: 
NEXT I 
TAB* - "A" + G*: REM TABULAT 
ION O 

REM LE 'A' EST INVISIBLE A 
L' EXECUTION DE LA COMMANDE C 
ATALOG.SA CONNAISSANCE EST I 
NDISPENSABLEPOUR EFFACER LA 
REM.CELA PERMET DE MARQUE R . 
LES COPYRIGHT {DANS LESQUELS" 
PEUVENT ETRE INSERES DES CH 
R*(7) ->BELL! 
240 MES* = "'■ 
250 GOSUB 370: FILE* - TAB* + MES 

* 
260 MOT* = "E)FFACE , OREE OU A> 
NNULE ? ":V = 20: GOSUB S60: 



GET A*: PRINT A* 
270 IF A* = "E" THEN 330 
280 IF A* = "A" THEN HOME : SOTO 

240 
290 IF A* < > *C~ THEN 260- 
300 PRINT D*;" OPEN"JFILE* 
310 PRINT D*; "CLOSE"! FILE* 
320 GOTO 340 

330 PRINT D»; "DELETE";FILE* 
340 MOT* = "VOULEZ-VGUS CONTINUER 
(0/N) : ":V " 22: GOSUB 560 

I GET A*i IF A* = "0" THEN HOME 

: GOTO 240 
350 IF A* < > "N" THEN 340 
360 TEXT : HOME : END 
370 REM 



PEEK (S>: IF A* = H* AND LEN 
(MES*) > 1 THEN MES* = LEFT* 
(MES*, LEN <MES») - 1): 60T0 
400 
410 IF A* = H* THEN MES* = "••; GOTO 

400 
420 MES* = MES* + A*: IF LEN (ME 
S*) < 22 AND A* < > RC* THEN 
400 
430 IF MES* = RC* THEN MES* = "- 

: GOTO 400 
440 MES* = LEFT* (MES*, LEN (MES. 



TEXTE A INSERER 
380 REM 



DANS LE CATALOG 



*) - 1) 

450 RETURN 
460 REM 

MISE EN PAGE 



540 
550 



S POUVEZ INSERER DES CARACTE 
RES": PRINT "DE CONTRDLE TEL 

QUE CTRL G (BELL) . " 
PRINT "LE CARACTERE INVISIBL 
E DE LA LIGNE 35 ": PRINT "D 
U PROGRAMME (UN 'A' POUR LE 
MOMENT) ": PRINT "EST MODIFI 
ABLE A VOTRE GUISE. ATTENTION 
"I PRINT "DE VOUS EN SOUVENI 
R SI VOUS VOULEZ "• PRINT "E 
FFACER LES REM": PRINT 
PRINT : PRINT : PRINT " 

<RETURN>": 

GET A*: HOME 
RETURN 
REM 



CENTRAGE DES MOTS 



VTAB 10: HTAB 7: PRINT "ENTR 

ER LA LIGNE DE TEXTE :" 

VTAB 12; HTAB 9: PRINT LEFT* 

(MES* + " 

.,",21);s HTAB LEN (MES*) *- 
9s VTAB 12: GET A*:X = PEEK 
(S) + PEEK tS) + PEEK (S> + 



470 MOT* = ": l"tV ■> ll 

GOSUB 560: V = 3: GOSUB 560 

480 MOT* = " CATA-REM ":V = 2t 

GOSUB 560 
490 POKE 34,4 
500 NORMAL : VTAB 7j PRINT 
510 PRINT "POUR FAIRE TOURNER CE 
PROGRAMME , VOTRE": PRINT "D 
ISQUETTE NE DOIT PAS ETRE PR 
OTEGEE ": PRINT "CONTRE L'EC 
RITURE.": PRINT : PRINT "VOU 



LEN (MOT*):H 



(40 - L> / 



570 
580 
590 



VTAB V: HTAB H: PRINT MOT*; 

RETURN 

POKE 216.0: HOME :V * 12iMOT 

• - "ERREUR"! INVERSE t GOSUB 

560: SET A*: NORMAL : PRINT 

RC*ID»; "CATALOG-: GET A*: RUN 




EUVE ROUGE 



TRS80 



AJlez, laissez de cote les touches fiechees, le joystick 
et parlez a votre TRS. II suffit de lui commander HAUT 
par I'intermediaire du micro du magneto cassette pour 
que celui-ci sexecute. Et comme on ne recule devant 

hen, drtes BAS et 

Jacques GIRARD 
Mode d'emptoi: 
Pour le 16K MEMSIZE 30000. 
Pour tester si cela peut marcher: 

Mettez votre magneto en enregistrement (avec ou sans cassette. 
peu importe). 
Enlevez la telecommande. 
Testez le programme survant: 

III2B •»•••*••••■••«••■•••»..•••••••••••••••••••••••••»••••.... 

38 'FLEUVE ROUGE (C> AUTEUR GIRARD 

*8 ' COMMANDE VOCALS JACQUES 

Tandy IBS-SB MODELE III ET I DE 16 ko A AS ko 



99 ■ 



NEXTsPRINTlGOSU 
READA r PO 



7B CLSiO-EAR 2989:FORl»9T024sREADAsPOKE32312»I 

B679 'MUSIQUE ET PRESENTATION 

93 IF PEEK '32388) -289 THEN GOSUB 1398 ELSE F0RI-1T019H 

KO22^*I,A'-4EXT*F0RI-flT02'READA-P0KE32969*I.AiKCXTtF0R 

EADAif>0KE3269e.I,AsNEXT'G0SUB1339 

189 A0R-16884-F3RI-6S9T0314 STEP-3(X-USR'I>«NEXT 

ne CLS>oinA*(i2>:o»iiiNmrr- 

VOUS AVEZ LE CMOIX ENTRE * NIVEAUX DE DIFFICULTE 

(1) ™> FACILE 

(2) ™> no YEN 

(3) ™ > DIFFICILE 

(Al ---> RAPIOE 

VOTRE CHQIX -IC 

2* IF C<I OR C>4 THEN X-USR( 2SI3 IsmjN 1113 

.39 FORI-39T01 STER-<36-I > IX-USRI I * 10*256) 'NEXTIGOSUB 788 
'•?. RANDOM 

.39 A*(B>-' ■ ...... LA LONGUEUR DES A«(I1 EST EGALE I 



10 A = INP (254) 

20 IF A AND 1 ELSE PRINT TERMINE* 
30 GOTO tO 

Le programme ne doit pas afficher TERMINE tant que vous mainte- 
r»z le silence. 

Sinon, essayez un micro moins sensible ou un casque de Walkman 
branche dans la prise du micro. 

Pour certains modeles (4 surtout) vous pouvez essayer le pro- 
gramme test survant: 
10 A = INP (254) 

20 IF A/2 = INT A/2 ELSE PRINT TERMINE - 
30 GOTO 10 

Si ce programme fonctionne. ators modifiez la ligne 920 
Le 14" DATA: 32. doit etre rempiacS par 40 
Le 27 s DATA: 40 par 32. 



L'utiliMtlon <to cm »om prwrnn nacaaalta 
traa pan (to brulta (to fond ... 

SILENCE ... 
449 0-2 

49* F0RI-lT01999iNEXTiCLS 

46* POKE 3268e,8'P0KE16926,B8IP0KEt6927, 1271 INPUT*APPUYEZ SUR <E 
NTER> ET PR0N0NCE7. LE MOT 'BAS' - 10S>SB-USR'B) 

478 INPUT-APPUYEZ SUR <ENTER> ET PRONONCEZ LE NOT -HAUT' -|OSISH 
-USR'B) 

473 IF SH/SE THEN PR INT VEUILLEZ REFAIRE L' ENREGISTREMENT 'IFOR 
l-ir0388'NEXTlG0T0438 
ABB CLS-PRINT* 

Quand voua vouch- ai fair* aonltr votr. brlqua 11 voua 
dira 'haif . Pour (toacandra 11 faudra 




838 RETURN 

869 ••••••••••«• S-P MACHINE POUR LA COMMANDE VOCALE , 

LE MOWEMENT DE9 BATEAUX ET LA MUSIOUE 
879 0ATA299. 127,19, 179,22,6,76,69.9,9,8,8, 16.298, 238,1, 
211.299, 13,32,242,21,32,238,291 

889 DATA299.37, 127.17, 127, ft I .33. 12A.M. 1,63,*. 237. IB*. ! 
128,61,33,129,61,1,63.9,237, 176, 17, 192,61 . 33, 193,61 , I , < 



9,237,1 



1,62 



19. 3B. 293, 61, 293,1 



I-CHRK931' 



ILS REPRESGNTENT LES BATE 



7B A»(21'STRIHG*<2,93>' 
BB A*(3)-STRING*<3.99>< 
9« A*<4)-STRING*(4,93)*- 
«B A«(3)-STRING«(9,99)< 
:iB A«(61-STRING«<6.99>«' 
22B A» 1 7 ) - " . 

A*(a>-CHR"C99)«'. * 

2AB A«(9)-CHR«(99)**. , *CMR»(991** • 

A«(tfl)-8TRING«(2 > 99>>"."*CHR*(99»*' 
26* A«(ll>-CHR*m)* > .**STRIN6«(3,99>*' 
27B A» (12>-STRING*( 3,99) »' . -•STRING*) 2.991 . 
ONC GOTO 299 . 3Be ,31B ,32* 
A*(7)-Aa<9)IA«(B>-A*<l«)'A*<2)-A*<3)IA1 



m AK7)-M^MQ-HI.'-/,TO 33B 
• A«<3>-A«<11 1 IA*<6>-A*< 12) 
329 O-2IG0T0299 



■D-B'GOr033B 



D-19IGOT0339 
KRNtXD) I ■F0R!-lT023rAI»-A14-Aa((»N0( D* 1 )-l ) INEXTIA14-A1 
F0Rl-lTO23tA2*-A29>A*["ND(D*l)-IMMCXTIA2«-A2 



••L£FT*<A1», 13 
349 A2A-A4(RND(D 
IHWIIHII. I II 

•689T0314 STEP-3IX-U3RMHNEXT 
339 GOSUS419 
369 GOSUB799>CLSiF0RI-9T063>POKE13616*I, 1 49> NEXT 'PRINTS! 4B. -V 

WMAINES EN DANGER '!■ — ■■■■■■■ DIGUE ET TROUS « 

379 FORI-1T03 

RNO«24).2-tiIF PEEK(X-.I96271-32THEN3e9 ELSE POKE 19627 
32 ■ NEXT 

399 MB-19ITR-3 
499 G0T0949 



dlr* 'baa' 

499 SL-<9B*SH)/2IF0R I-lT013Be«NEXT<R0KE32689, I iRETURN 
399 ■••••••••••••« CMANGEHENT DE BRtOUE ItTIIIIIIIIIII 

31« V-V-l-16.(V"B)tPOKE323BB,V.ADR-169e4iPOKeADR,l7A.R-«IIF NB>1 
F0RI-IT0NB-llPHINTa76B»I«2,CHR*U4B)|.NEXTiPRINT* *t 'RETURN EL 

sc pniNitt7if.fi, • "i 

32B RETURN 

339 '••••■■■■• PRESENTATION DU FLEUVE •••••••••• 

34B PRINTe32fl,LEFT*(Ala,64>|iF0R!-lTO64i7«-rlID«<Al*, 1,1) (PRINT A3 

12-I,M109(A1*. 1*19,1) !>PRlNTa649-I.Z«l)NEXT 

339 PRINT»3I2,LEFT«1A2«,64)iiPRINTa649,rlID*(A2*, 16,64 ); ifORl-1 TO 

64 ( PR I NT 3448- 1 , M I D« < A29 , 1 , 1 I 1 1 NEXT 

969 PRINT9478. 'FLEUVE ROUGE EN CRUE -H60T01399 

37B *........ MOUVEMENT DES BATEAUX SUR LE FLEUVE ••■■•••a* 

3E3B IF fl-1 OR R-3 OR R-6 THEN ADR -A0R*O 
39H IF R-2 OR R-4 OR R-3 THEN ADR -ADR-0 

ftM P0KE16926.441P0KE16327. 126IX-USRI9) ■ IF 0-2 X-USR<B) 
/jIB IF MADR AND 63>-63) OR < (ADR AND 63)-9 ) THEM PRlNTa7B, *HORS 
CONTROL •StU-4B93tGOSUB639 (FORI-1 T0399INCXT IPRINTS7B, - 
-|(G0roil29 
629 RETURN 

639 A0R-i3689tPOKE ADR, 1 76s RETURN 
649 '•••■*■■• MUSIQUE a»«...... 

698 POKE 16326, BtpOKEI6327,l27IX-USR(U} 
669 RETURN 

67B PRINT- •••• ■ ...» . . . . .... 

609 PRINT* • • ■ •••aa 

699 PRINT* -MHJ • ■•• • . ., ... 
7B9 PRIMT* a • . . . .. . 

719 PRINT' * tm .... .... . .... 

729 P0KE16326,9'P0K£16327.!27lFORF-9I4TO689 STEP 3 (X-USR'F ) -NEXT 

■ PHINT'PRINMPRINT 

739 PRINT" 



117,293,34,31. 117. 193,97. 127.299,37, 127 
919 0ATA234, 191, 49, 24, 234, 32, *9, 2B, 294, 66, -19,34,62, 4 
96,117,1 93.37, 127,62,4,39,36, 117,199,37.127,62,9,98 
117.199,97,127,62 ,3,38,36,217,8,291 

929 DATA38, 168.127,294,8,32, IB. A. 33, 219, 233. 283, 71 ,3 
16.248 ,219,299,283,71,48,8,98,22,66.234, 1,289,24,24 



169, 1*27,219, 299, 199, 119, 32.9,98,22, 



9.9,62,83.38,22,66.3: 
66,294. 1.48,9,24,241, 

923 DATA244.239.193. 194, 19 

939 REMARK ....... BOUCLE PRINCIPALS WM IIII i l t l A iH 

949 IF SM THEN 1329 ELBE IF PEEK' 14991 )-9 RETURN ■.. 

TOUCME ENFONCEE T 
999 IF PEEK! 14499 IAND8 ELSE 989 

969 R-R*IIA0R-ADR-64(IF R> I THEN U-93 ELSE U-32 
979 POKE A0R.64.UIGOTO1919 

9B9 IF PEEK<14499)-16 AND R>8 ELSE RETURN 
998 R-R-1'A0R-ADR.64I!F R<6 THEN U-93 ELSE U-149 

998 P0KEADR-64.U 
918 REMARK 

929 V-PEEK(ADR) 

939 IF V-32 THEN 1898 ■••••••• REUB3I OU PLOUF 7 

848 IF V-93 THEN 1138 ••• C'EST BON ... PEUT ETI 

999 IF V-46 TMEM 1298 •••••••• C'EBT ENCORE MIEUX I 

BOMNUS 

969 IF V-149 THEN 1289 '•••••• PAF ■ AH Ml AH ' 

878 RETURN 



■13688 AND ADR<I696* ELSE IF ADR <13A'»9 T1RIN 



738'F0RI**3I4 TO ftllVfill P3tx-U-iRf 1 
798 POKE39891,PEEK'VARPTR(Al«)*l 
099 POKC39992.PCEKIVARPtR(AI«)*2 
819 POKE30883,PEEK1VARPTR(A24).1 
829 POKE39984,Pi:tK(VARPrR'A2«>*2 
H3B CV-PEEK'389ei).23A«PTEKI38«e: 



t!F CV>32767 THEN CV-CV-63339 




. 1F,8A,38,E9, 17, AA. 98,90,88. IF 



-AUTO ROUTE 

Le jeu consiste a parcourir le plus de kilometres possi- 
ble sur une autoroute. Facile ? Eh bien non, car vous 
circulez a contre sens (tres drole !). N'oubliez pas de 
faire le plein quand vous passerez a cdte des stations 
services. 

Joel KEMPF 

Mode d'emploi: 

Le programme toume sans extension, mais Sent sur deux parties la 

premiere contenant les caracleres programmables. un sous-pro- 

gramme routine en langage machine et la regie du ieu 

U deuxieme partte contient le jeu lui-meme. 

1 REM 

2 REM* KEMPF JOEL * 

3 REM* 17 ANS * 

4 REM* , 

5 REM* PRESENTE • 

6 REM 

7 REM* * 

9 REM* AUTOROUTE • 

9 REM* * 

18 REM 

11 R£M*PRG EN DEUX • 

12 PEMtPARTIES POUR * 

13 REM* VIC-20 • 

14 REM 
13 R£M*PARTIE UN • 

16 REM 

17 REM 

18 REM*ROUTINE L.M.* 

19 REM 

28 DfiTfiD8,i8,A5-&0,69,CE.ftA.A0-28.98,9D.< 
22 DATfie8.9D.00. IF, E8.90.ee, IF 
24 DRTft3e,8A,E9,17,fift,98,9D,89,lF,R2,FF 

26 WTflBD.E4,lE,9D.Ffi,lE.BD,E4,96.9D,Ffl.96Cfi,D0,Fl 

« 52™£'lE^BD,FF.lD,9D,15.1E,BD,FF,55.9D.15,96.CR,De,Fl 

eTee^eft 7 ' E8 ' 81 ' F0 ' K ' Cfl ' De,89 ' C5 ' 25 ' De ' e7 ' E0 ' 14 ' Fe ' 83 ' E9 ' 9 

2S^'^'rI'fl'£I'^'I£' e *' 1F ' C9 ' 28 ' F9 ' 96 ' 28 ' C5 ' IS ''» c ' 7 «'lB'2e'D6>lB 

IS S£J9?2'2?'H*Jr5S' M ' ee ' IF ' C9 ' 28 ' Fe ' M ' 2e ' C5 * l8 '«'» r »lB'»,D6,lB 

22 5£JES' B 2'S' !F ' C9 ' 20 ' F8 ' M '2 * C3 ' 1B ' 4 C'»'1B'2«'D6'1B 

« S2I2l£' B i' 0e ' IF ' C9 '2«' F B'96'20'C3,lB.4C.Bl,lB,28,D6,lB 

S «I^'^' E9 - I!' flfi ' BD ' ee ' JF'C9,20,F8, 84,20,03. 1B,60,28,D6, IB, 69 

60 DfiTftft9.2fl.9D.00,lF.R9,86.9D.09,97.fl9,DC,8D,0D,98.C8,60 

63 ErflTfi98.9D,80,lF,ft9.00,9D,00,97,C3,60 

63 REM*CfiRflCTERES PR* 

69 REM 

70 DATA7384, 189,235- 163, 165,36,0,8,0 
72 DATfl7392,9, 0-9,0, 0,0,0,8 

74 DATA7400, 69, 126,102,182,66,126,60,189 
76 DflTfi7409, 0,0,0,0,8,9,9,8 
78 DATH7416, 60, 126. 36- 189, 189,255. 189. 189 
39 DflTfl7432,28.62,226, 190. 190, 190, 126,62 

82 DATA7448, 233, 255, 253, 235, 235, 255, 233, 255 
84 DATR7456,255.255,231, 182,255. 195, 126-68 
86 DRTH7464.36. 165- 189,231, 189. 165.60,235 

83 DRTR7472, 120,48.72, 124,123,129,72,180 
90 DRTR7504, 9, 73,42,20- 107,29,42,73 

92 DftTR74e3. 126, 129, 153, 133, 189, 189, 153, 153 
94 DATA7496,I29,126,255, 129, 129,233,126,126 
96 DRTA999 

200 REM 

201 REH«LECTURE DATA* 

202 REM 

210 P0KE368?9,29 

220 G0SUB1000 

230 GOSUB3000 

240 PPINT-1BB/EUILLEZ PfiTIENTEP UN PETIT INSTANT S.V.P." 

250 P0KE56,27-P0KE52,27-CLR 

268 F0RI=6912T07136-READRS-S-ASC<LEFT*<R*,l>>-48:iFS>9THENS-S-7 

279 X=ASC<RIOHTS<AS, m-46: IFX>9TH£NX=X-7 

280 P0KEI,S*16+X:NEXT 

290 FOPI»7168TO7679:pOKEI.PEEKa+23600>NEXT 

300 REfiDfiIFA=999THEN320 

3 1 FORI =9T07 ■ REfiDX i P0KEA+ 1 , X i NEXT ! OOTO390 

320 P0KE8,i9 

330 PRINT"»»rtlULEZ-VOlJS VOIR LES REGLES DU JEU <0/N>" 

340 GETA*:iFA*«"N"THEN378 

330 IFA*O"O ,, THEN340 

360 GOSUB2000 

370 PRINT-IWOCHAPGEZ LA 2ND PARTIE" 

380 PRINT-BTAPEZ SHIFT * RUN/STOPX' 

390 END 

1000 REM 

1001 RElWPRESEMTfiTIOH 
1092 REM 

1010 PRINT'T3»*M 

1020 PRINT"** ■ I r 

1039 PRINT"** m AUTOROUTE « ■" 
1048 PRINT"**] B 1 9" 

1030 PPIHT"** *• 

1060 RETURN 

2000 REM 

2001 REM*REGL£S JEU • 

2002 PEM 

2018 GOSUB1000 

2020 PRINT "MBV0U3 VOUS EMGRGE2 SUR UNE AUTOROUTE OU DES CAMIONS FOUS ROULENT " 

2030 PRINT-A CONTRE SENS. ' 

2040 PRINT"UVOTRE B"JT EST DE LES EVITER POUR PARCOURIR LE PLUS DE KILOMETRES PO 

S3I8LE." 

2050 PRINT"*»/QU3 AVEZ DROIT A 3 ACCIDENTS." 

2060 PRINT "JMRPPUVEZ SUR UNE TOUCHE"; 

2870 GETA* IFft»=""THEN2070 

2080 GOSUBI009 

2090 PPINT"*WAITES ATTENTION EE NEPftS TOMBEP EN PANNE D'ESSENCE. . . " 

2180 RETURN 

3000 REM 

3001 PEM«BPUITAGE * 

3002 REM 

3010 P0KE36878/15 
3020 F0RX-128T0234 
3030 POKE 36376.X 
3940 F0PI=1T010 NEXT 
3038 NEXT 
3060 POKE36876.0 
30 v PETURN 




Sim da la page i ^ 



10 REM KEMPF JOEL 

11 REM 

12 PEM AUTOPOUTE 

13 REM 

14 PEM POUR VIC-20 
13 REM 

16 PEM PART IE DEUX 
300 V-36373 PE-0 
510 PRINT'TT 
528 POKE0-18 
539 POKEV+1,25 
340 POKEV-9,255 



POKEV, 15 

*f .:> = ■■ m»*t ■•■■ 

RS(.2)-"H*M* HI' 

RS<3>="*M*i ■«■ 

flS<4>""*M*# |- 

ftt(6)«"«WI ■ ■ 

618 RS<9>»"*»*t* ■ iy- 

628 A«<5^AS<4>^A*(7)-fl»<6>:A«<8>*A*C7> 
380 VO-8KM=0DI".85 CD-8 SO-201 VS».e05I»l II«I E*25 
819 GvSUB 11009 



556 
366 

566 

538 



10©e SYS6912 

1018 PR1NTA*<I); 

1920 IFPEEK(8139)"29AHDPEEK(8137)«33THENGOSUB800e 

1030 IFRND(I».97THENTJOSUB9e00 ~™^~»W 




1030 lFPEEK<36977>O9THENG0SUB39ee 

I960 KM=KM*.0l 

1970 CD=CD*1 

1080 IFCD»208THENDI»DI-.83CD=0 VS-. 15 

1099 POKEV-4,S0 

1100 SO-SO-VS 
1110 E=E+1 

1120 IFE»24TH£NGQSUB4890:SO-200:VS-.005-CD»0 

1130 IFE>24THENIFSO<I5eTHENGOSUB7000;GOTO1000 

1148 ID*DI 

1159 GOTO 1909 

2000 REM AFF CAMIONS 

2010 X»INT<RND(I>*14> 

2029 P0KE7634+X,37 POKE38404+X,6 

2030 !FPEEKC7796+X?=32THENPOKE7706*X.36 P0KE38426+X.6 
2040 RETURN 

3000 REM ACCIDENT 

3010 POKEV-1,228 

3020 FORL-13T01STEP-.7 

3030 POKEV, L 

3040 FORM-1TO10 P0KEV-14,12>P P— PNEXT 

3030 P— P 

3060 NEXT 

3070 POKEV- 1,9 

3889 POKEV, 15 

3096 V0=V0*1 

3100 IFVO-3THENOOSUB18000 

3110 RETURN 

4080 REM PANNE ESS. 

4910 pnKEV-4,0 

4039 FORT-1T08 

4040 lFlK0THENPRINT"-l* MT fiNNE D'ESSENCE" 
4838 IFII>0THENPRINT"*l M * r»? fiNNE D'ESSENCE" 
4060 II— II 

4879 POKEV-2,200 

4088 FORTT-1TO400 NEXT 

4990 POKEV-2,0 

4100 NEXT 

4110 PRINT"»T»**»I IW, 

4120 GOSIJB3990 

4130 RETURN 

5O0O REM S,PRG*AFF. 

5010 IFRND<1»DITHEN00SUB2666 

5020 RETURN 

60O0 REM DEBUT flFF. 

6018 PRINT"!** •"; 

6020 SVS6912 

6030 PR I NT "WW* ■•"; 

6048 SVS6912 

6050 PR INT "MM M M»". 

6060 RETURN 

7009 REM POMPE ESS. 

7010 DI-.94 
7820 1=1+1 I 

7030 IFI=9THENII=-1 

7048 IFI=9THENII=1 1=1 DI=ID E-8 

7058 RETURN 

8000 REM PLEIN ESS. 

8010 POKEV-4.0 

8020 POKES 1 16, 38 P0KE36836.6 

8939 FORSO=130TO299 

8840 P0KEV~4,S0 

8050 F0PTT=1T0158^NEXT 

8060 NEXT 

8070 P0KE8116.32 P0KE38836, I 

8880 E-23 CD=0 VS-.003 

8896 PETURN 

9099 REM fiFF AMBUL. 

9010 X=INT<RND<I )*14> 

9020 P0KE7684+X, 40 P0KE38484+X, 2 

9838 POKE7706+X.41 P0KE38426*X,2 

9048 RETURN 

10098 REM FIN 

10010 PRINT":]" 

19020 POKEV, 

18830 KM=INT<KM*I0)/10 

10040 FORI-0TO20STEP3 

19050 POKE7680+22*I.3IPOKE7701*22*I,31 POKE38400.22*! . 

POKE38421*22*I,0 
1 0068 POKE7702+22*! , 29 i P0KE7723*22*I . 29 P0KE38422+22* I . i 

P0KE38443+ 22*1.0 
10079 P0KE7724+22* I , 27 • P0KE7745+22* 1.27 P0KE38444*22* I , i 

P0KE38465*22*I,8 
19080 NEXT 

10990 PRIHT"*re»»WI***t**+**#**»" 
10100 PR1MT"M»MW mUTOROUTE W" 

10119 PRINT"****!*************" 

10120 PRINT ".f»»M*VOUS AVEZ PP.RCOURU" 
10130 IFKM>RETHENRE"KM 

10140 PRIHT-rtW-KM" KILOMETRES" 
1015O PRINT'-m»»H.E RECORD EST DE" 
19160 PRINT"»*1"RE" KILOMETRES" 
10170 PPlNT"«H*»F-'OLILEZ-VOUS REJOUER" 

10189 PRINT"**********! 0/U" 

10190 PRINT"0»*»»»*») " 

18206 QETftr IFAt-"0"THENPRINT"n"' POKEV. 15 G0T0899 

10219 IFAK>"N"THEN10200 

10220 P0KEV-9,240P0KEV*1.27 POKEV-14,12 PRINT".i:" 
19230 END 

1 1900 REM4INSTPUCTI0H 

11019 f'Rir(T"^!«*IWB<I»I»W*W 

11920 PRINT" GAUCHE < '. DPOITE" 

11030 FORX»1TO3000 NEXT 

11848 PRINT'-H" m 

11930 RETURN " 



un Grand ec**ft. un« :ot* wne 
'■' 

csn*. :* ^r>S - 
c 05: Q'ji va an«r se 
?s sa"9s zotn 
pour vous en causer dans 
l habdo 1 Oj- cast 7 C'esi le 
martyr qu* nous venons d'en- 
gager et que nous avons ana- 
che dans la cave pour qu'il 
s habitue a ztgraguer dans le 
noir quand les reahsarr 
tireront dessus a la chevrotpne 



SI JE TIENS 

MES PROMESSES.. 

Mesdames. mesdemoiseites 
messieurs, ceci etaient les re- 
solutions du journal que vous 
nous faites i'honneur. la joe el 
le plaisir de nous I'achetef 
toute* les semaines at que si 
vous jurez en crachant par 
terra de continuer, nous on en- 
vena la putticite sur les roses 
et on continuera a dire du mal 
de tout le monde. comma ea. 
pour le plsisir et on tiendra les 
promesses qui sont la haul, au 
dessus. quant au sujet de la 
teloche. du cinoche. de la be- 
doche et des concours men- 
sueloch.es et trimestrieloches. 
Et que si je mens, non seule- 
ment je vais en enter, mais les 
concurrents vont comme d'ha- 
bitude nous piquer nos id6es 
et j'aurais mieux fait de termer 
ma grande gueule et que les 
bras vont me raccourcir. que 
les turoncles vont me pousser 
sur le nez et que. avec des 
bras aussl courts, je pourrais 
pas me le gratler. et que je 
vais mourir a cause. 
Promesses d'ivrogne a lenir 
pendant le premier trimestre. 
Au lou I 




VERSEAU 

Possesseurs d'Aquarlus. rd- 
jouissoz-vous: les loglciels 
arrivent enfin! Trente denlre 
eux dolvent sortir prochaine- 
ment sur le marchd. Parml 
ceux-cl, des jeux orlglnaux 
tels que Spoco Invoders, 
Phrogger, PocMon et D-Fen- 
der. Seralt-ce effectivement 
I'aube de I 'ere d'Aquarlus ? 




SINCLAIR EN CIRE 

Ca y est. Lord Cllve Sinclair 
entre chez Madame Tus- 
aaudl II s'agit de ('equivalent 
a Londres de notre musrtn 
Grftvin national. Une ettlgle 
en clre de I'inventeur sera 
exposeo d partlr d'Avril pro- 
chain dans cette famsuse 
malson de Baker Street. II 
tiendra a la main une de ses 
mlcroteies. A laquelle ne 
sera rolie aucun ordinateur... 
Elrange. non? (NDLR: of un 
Georges Lecloro en chocolat. 
c'eslpas une bonne Id6e ?) 




_PETROLE 

En chacun de nous, il y a un JR qui sommeille. reveil- 
lez le votre avec ce petit programme excitant. 

suite du N'62 Giiies osmont 




384 SI' 13 

3»s una 13 
38? t IB- 

385 PVIEU 
39? PCI 13 
318 «« 15 

311 «a 13 

312 ST- U 

313 CTO 21 
314«LBL 23 

315 -C ESI ICl ..• 

316 OVIEH 
31? BEEP 
318 PSE 
318 FIX 1 

328 -P0CHE EH - 

321 mx 11 

322 9V1EU 

323 PSE 

324 CL9 

325 FIX 8 

326 XEB 33 

327 S10 8? 

328 RCL IMS 8? 
328 18 

338 • 

331 FJt 

332 18 

333 • 
33* IK! 

335 188 

336 • 

337 STO 87 

338 -SUWITITE =• 

339 BVIEH 
348 PSE 

341 CIO 

342 ml 87 

343 •)■ IB- 

344 PV1EB 

345 PSE 
348 tf m 

347 CIO 88 
348«LBl C 

348 -F0H1CE- 
358 PVIEU 

351 PSE 

352 "WELLE COSE'" 

353 TOHE 8 

354 PMKPT 

355 STO 11 

356 -PtOFOHDEUP ?• 

357 I0HE 9 



19) PJ87H 

359 18 
368 / 

361 SI» 11 

362 18 

363 • 

364 Xt2 

365 58 

366 • 

367 STO 13 

368 "MUT: • 

369 OKI 13 
378 "I W 

371 DVIEll 

372 PSE 

373 ACL 13 

374 XE« 15 

375 P.O. 13 

376 ST- 12 
377»L8L 31 

378 RCL 81 

379 18 
388 « 

381 IHT 

382 19 

383 / 

384 XEO 16 
335 FS' 88 

386 CIO 32 

387 ACL 82 

388 18 

389 « 
398 1KT 

391 18 

392 / 

393 XEQ 16 

394 FS' 88 

395 CIO 32 

396 RCL 93 

397 18 

398 » 

399 INI 
498 18 

481 / 

482 XEQ 16 

483 FS' 88 

484 CIO 32 

485 RCL 84 

486 18 

487 • 

488 I HI 

489 19 
418 / 

411 XE9 16 



412 Fy> 88 

413 CTO 32 

414 RCL 85 

415 18 

416 i 

417 IHI 

418 18 

419 / 

428 XE8 16 

421 FS' 88 

422 CIO 32 

423 -ERREIJ8...- 

424 BVIEH 

425 TOHE 5 

426 TONE 3 

427 PSE 

428 an 

429 FIX [ 
438 BRCL II 

431 -F VIDE- 

432 (.VIEW 

433 PSE 

434 FIX 8 

435 CIO 88 
436H8L 32 

437 -IMCHIFIQJJE- 

438 RVIEK 

439 8EEP 
448 XEO 33 

441 S10 87 

442 RCL IHTJ 87 

443 18 

444 • 

445 FRC 

446 18 

447 4 

448 IHI 

449 188 
458 • 

451 STO 87 

452 -VOICI • 

453 8RCL 87 

454 -HIS- 

455 BVIEH 

456 PSE 

457 XEO 33 

458 SIO 11 

459 8 

468 STO IHH 1 1 

461 RCL 87 

462 ST« 86 

463 CF 8« 

464 XEO 34 

465 -V0US BVEZ- 



446 BVIEH 

467 PSE 

468 CLfi 
489 BRCL 86 
479 -F IS PTRl- 

471 BVIEH 

472 PSE 

473 CTO 88 
474<LW. 33 

475 RCL II 

476 IHT 

477 5 
478/ 
479 .1 
488 - 

481 1 

482 » 

483 INT 

484 BTH 
435«L6L 34 

486 1588 

487 RCL 86 

488 X<=Y' 

489 PTH 

498 -0UEI lOlfflllCE- 

491 DVIEU 

492 TONE 3 

493 TOHE I 

494 PSE 

495 -STOCXRCE WH" 

496 BVIEH 

497 PSE 

498 -=I588«8 PTRL- 

499 BVIEH 
588 PSE 
591 CLB 

582 RCL 86 

583 1588 

584 - 

585 BRCL X 

586 -FrT8 PERILS- 

587 BVIEH 

588 PSE 

589 1598 
518 STO 86 
511 PIN 
512>LBL I 

513 -RBFFIHBCE- 

514 BVIEH 

515 PSE 

516 -COHBIEH NB V 

517 TONE 9 

518 PROHPT 

519 STO 97 



528 RCL 86 

521 X<f 

522 ;■•. <: 

523 XEO 42 

524 -COOT: • 

525 MCL 1! 

526 "HU- 
SH BVIEH 

53 ::: 

529 RCL 11 
538 XEO 15 

531 RCL 11 

532 ST- 12 

533 RCL 87 

534 ST- 86 

535 «L R 

536 18 

537 « 

538 STt 88 

539 XEO 43 

548 -VOUS BVEZ- 

541 BVIEH 

542 PSE 

543 CLB 

544 BRCL 88 

545 -F HL- 
546HVIEH 

547 PSE 

548 -I ESSEHCE- 

549 BVIEH 
558 PSE 
551 CTO 88 
552«L8l 41 

553 -INPOSSIBLE- 

554 BVIEH 

555 TONE 3 

556 PSE 

557 -RESTE • 

558 OTO. K 

559 -me- 
56* BVIEH 

561 PSE 

562 SF 8? 

563 CTO 89 
564M.BL 42 

565 XEO 99 

566 1 

567 • 

568 RCL 87 

569 • 

578 STO II 
571 RTN 
572>LBL 43 
(73 MM 



574 RCL «8 


629 -VEX* ...- 


575 X<=V 


638 BVIEH 


576 RTN 


PI KB 


577 -SUBtOI...- 


(32 PS 


578 BVIEH 


633 Ra 87 


5n mt : 


634 SI- 88 


---■ HK 


635 Ra 17 


381 PS 


636 Ra 19 


582 -STOCHKE IKX- 


637 • 


583 BVIEH 


638 STO 87 


584 pse 


639 •' • 


585 -18.888 «L ESS- 


648 BRa 87 


--;. :.-:, 


641 -FW- 


587 PS 


642 BVIEH 


sh ai 


643 PSE 


:; : Kt H 


644 sa »? 


598 19888 


645 ST» 12 


591 - 


646 GTO 88 


592 flea X 


6474LBL 61 


593 -HI. PERKS- 


648 -IIPOSS1SLE 


594 BVIEH 


649 BVIEH 


595 PSE 


659 TOHE 3 


5% 18888 


(SI - : : 


sw sn n 


652 -RESTE ■ 


598 RTN 


653 flea 88 


599»LBL E 


654 -FH- 


689 -VENTE ESS." 


655 9VIEH 


681 BVIEH 


656 PSE 


682 PSE 


657 SF 82 


683 XEO 99 


658 CTO 88 


6*4 5 


-'■. | - 




668 -RBPPELS " 


686 IHT 


661 BVIEH 


687 3 


662 PSE 




663 na 19 


689 18 


664 1 


618 / 


665 - 


611 STO 19 


666 -JOUR ■ - 


612 -PRIX VEHTE- 


667 flea X 


613 BVIEH 


668 BVIEH 


614 PSE 


669 TOHE 7 


615 ao 


678 PSE 


616 FIX 1 


671 -VODS BVE7 


617 «CL 18 


672 OVIEW 


618 -F «/L- 


673 PSE 


619 BVIEH 


674 a» 


628 PSE 


675 flea 12 


621 FIX 8 


676 "F 111- 


622 -COW1EN NL »■ 


677 DVIEU 


623 TONE 9 


678 TOHE 7 


624 PROWT 


679 PSE 


625 STO 87 


688 an 


626 RCL 88 


681 BRCL 86 


627 X<Y' 


682 -HIB PTRL- 


628 CTO 61 


683 BVIEH 



6*4 to* - 
685 PSE 
CM 01 

687 «ea 8s 

688 -HI ESS.- 
M ..;:. 

698 TONE 7 

691 PSE 

692 SF 82 
:->.:. M 

694 FS">C 82 

695 STO 81 

696 FIX 8 

697 -JOUfc= • 

698 flea 89 

an ma 

Tit PSE 
791 I 
782 ST* 89 

m a 

794 ea »9 

785 x=r> 

786 GTO 95 

787 2S 
718 SI- 12 
789 58 
718 Ra 12 
?11 OTJ 

712 CTO 81 

713 -BTTEWIW.. 

714 BVIEH 

715 TOHE 5 

716 TOHE 7 

717 PSE 

718 -RESTE " 

719 flea 12 
728 -un- 

721 BVIEH 

722 PSE 
rtJHR «l 

724 -ACTION '• 

725 TOHE 9 

726 TOHE 9 

727 TOHE 9 

728 PeOHPI 
729«lBl 97 
731 XEO 99 

731 .5 

732 • 

733 .5 

734 . 

735 .1 

736 - 

737 18 

738 • 

739 IHI 



748 1*8 
741 / 

••:•.- * 

".. ,:, I 

W 1 

w • 

-,- ■_.- 
748 1 
74J . 

751 m 

75144* 91 

PS n - 

753 9S2I 

754 • 

755 .211327 

756 • 

75? FTC 

758 STOW 

759 BTN 

km* r 

761 -COHaiTSION : 

762 BVIEH 

763 PSE 

764 aa 

765 oea 86 

766 -FtB PTR- 
76? OVIEV 

768 PSE 

?69 an 
778 nea 88 

??1 -F4t ESS- 

772 OVIEH 

773 PSE 

774 ao 

775 MM. 12 

??6 -f m- 

777 OVIEH 

778 PSE 

779 Ra 86 
788 ST- 12 

781 18 

782 • 

783 ST. 88 

784 RCL 88 

785 ea 19 

786 • 

787 SI« 12 

788 -SOU TOTAL 

789 OVIEH 
798 PSE 

791 CLO 

792 oea 12 

793 "F Nf 

794 OVIEH 

795 BEEP 

796 .EH8. 4 



MINI TABLEUR 



FX702P 



Un tableur sur FX 702P, ou les aventures dun petit 
micro qui n'a pas peur des gros. 

M. DACLIN 

1*re option: Crdatlon d'un tableau 

Rappelons en dormant un exemplo. ce quest un tableur. 

Example: Vous etes commercant et vous avez achete 5 articles dif- 

ferents a un certain prix d'achat (P.A.). Vous souhaitoz realiser un 

certain benefice (B) de 20 % et trouver votre prix de revient qui 

constituera le prix do venle Hors Taxes (PV HT) et entin. connaitro 

le prlx de ventg au client compto-tenu dune TVA do 18.60 % (PV 

TTC). 

Votre tableau aura done failure suivant 



en rone P1 pour calculor PV TTC sera done: 

ligne 300 A(A) = A(A - 1 * V) x 1.186: RET. 

A cet instant, vous fites prets a faire toumer le programme pnncipal 

pour qu'il rempiisso les cases vides de votre tabeau. 

II faut stgnaler que "mini tableur" vous permet en plus, de rajouler a 

votre tableau uno cotonne supplementaire qui realise le total des 

donnees rangees dans une meme ligne du tableau. Dans notre 

exemple. nous aurions: 



Pour visualiser le tableau, utihsor les touches 6 pour alter A droito, 4 
pour alter a gaucho. 8 pour monter dans le tableau, ? pour dosoen- 
dre. Votre posrtion vous sera indtquee apres chaque defacement 
avec la valeur situee dans la case. II est necessaire de garder le 
doigt appuye sur la louche un petit moment pour pouvoir se depta- 
cer. 

Rien no vous empeche de stocker les donneos sur cassette par uno 
instruction PUT et de les recuperer plus tard avec un Gt" T 



Article 1 
ligne PA 50 F 


Article 2 
100 F. 


Article 3 
150 F. 


Article 4 

200 F 


Article 5 
250 F. 


llpne i B 










liqne 2 PV HT I 










ligne 3 PV TTC I 











Les lormules do calcuis seront ies suivanies: 

B = PA y 0,2 

PV HT - PA + B. 

PVTTC = PVHT x 1,186 

Le casio no les connaissant pas, nous devons les rgntrer dans sa 

memoiro Commo le programme do iraltement est situo en zone PO. 

les formules soronl rentrees en zone P1. 

Les calcuis etant dependants les uns des autres. nous dovons les 

rentror on tonction de lour position relative dans lo tableau. Le prr> 

firammo etant concu pour les trailer d'une cerlalne tacon. )l vous 
audra rentror cos (ormules sous une cerlalne formo. du gonro A (A 
- k * V) - . . ou k ost lo nombre de ligne qui separe lo torme en 
couro do calcul. du terme utilise. 

Par example, pour calculor B II vous taudra rontror en zone PI 
Ligne 100 A(A) - A{A - 1 ■ V) * 0,2: RET 

Lo lormo A(A) ropfosonto B el A(A 1 * V) reprosonlo PA (le prix 
d'achat). II est note do cello (aeon car PA est siluo une ligne au- 

<\<y,\ <»v .]" II 

Pour calculor PV HT, il laul rentror on zone PI ligne 200 A(A) - A 

(A 2 * V) < A(A i * V). A(A) represents tei, to calcul do PV HT. 

A(A - 2 ' V} 'oprenonto PA qui ost situo 2 llgnes au-dessus et bion 

ontondu A(A - 1 * V) ost relatlf a B qui ost ailuo une ligne au- 

doosusdePVHT 

Vous ovez comprls co mocanismo malntonanl La lormulo a rontror 





Article 1 




Article 5 


TOTAL 


PA 








PA1 * PA2 + PA3 
+ PA4 4 PAS. 


B 








B1 + B2 + 83 
+ EM + B5 


PVHT 








PV HT1 * PV HT2 
+ PV HT3 + PV HT4 
* PV HT5 


PVTTC 








PVTTC1 + PVTTC2 
J- PV TTC3 * PV TTC4 
* PV TTC5 



ERRATUM SUB FX 702P 

TEMPLE du n" 59 

ligne 16 GSB 70: IF 0$ ■ -N-; V 

-V-U:W= -W-Z--Z: 

G0T064 



Commenl operer?: 

Faire F1 PO. A la question choix 1 1.2) repondre 1 pour creer le 1a- 
bleau. entref le nombre do colonnes sans compter la colonne de 
gauche avec les noms. ni revenlueile colonne Total (dans nolro 
exemple ce sera done 5). Rentrez ensuite le nombre de lignes qui 
est dans nolro exemple 4, 

Ensuite. le FX vous demande si vous avez besoin d une colonne 
supplrrnonlaire du typo TOTAL, repondez 1 EXE OUI. EXE si 
NON. Si vous avoz repondu I, onlroz ensuite le nom de cotto co- 
lonne supplementaire. 

Repondez onsuito a la question 'lignes cennues?' en rentranl lo 
nombre de lignes connuos (icl 1 dans noire exemple) cesl-a-dire la 
ligne PA. 

La machlno demande ensuito lo titm dtf iiqnos (ici PA, B ) puis 
vous ontrez les valeura dans lea lignes connues on vous rappolanl 
Itul litrr. nt lo numOro de la colonno 
La machino elfectuo ies calcuis et vous renvoio au monu general 

Option 2: visualiser un tableau. 
Tapor 2 EXE 



LIS1 i 
18 MBIT IViHP r CH 
OIX (l-2)".«:60 
TO(R 
LIST II 
1 VAC 

II \9 -cm. LIE", c 
, I, "CASE SIT.! 
:IF MMrlP "HO 

ir.a 

j« IHT "LISHE CONN 
IT.K!l=C»l:M 
F.1IK-IIM4I 

2! FOR E=8 10 H<V 

STEP VHHP "TIT 

K",I»(E) 
25 F0« ft-E*t TO Ct 

E 
38 PRT Rt(E):IF Zi 

l;SSt 188<Z:60I 

40 
35 IHP A(A) 
40 NEXT R:Z=M!NE 

XT E: IF «=0:60T 



10 
51 F08 fi=24V-l TO 

L*V-1 STEP VlFO 

A U=A-C TO «-!! 

8(A)=A(ll)tA(A) 
55 NEXT UiNEXT 0:6 

0T0I0 
LIST I! 
1(2=1 

15 X=2I60TO 21 
n PAT At(2);CSA 8 

!A(X) 
21 E*J4:PJI Bt< 

ZHBI=rB':IEBt 

--" THEN 21 
38 If M=V THEN 

71 
40 IF 8I='4" 

110 
58 IF !!= 

1(8 

68 SOTO 190 
78 If fANC (IX-C-A 

VV=8 THEN 15 



'THEN 
'THEN 



98 If fPBC (K-C-6 

)/V=JI6SB 288 
95 If 6<ei6=8:AET 

lMfrXt HSOIO a 

III If FSHC «X-I)' 
V=8 THEN 15 

128 If X=Z;X*OR: 
E=28tA'l88:60T0 
E 

148 X=X-I:60T0 20 

168 N=l:J=tiA 

I78F'»:IF (X-J)'.S 
•:X=Xi««ViH:Z=V 
♦IHT (X/V:f=2 

IT5t>l:6SB98:lf f 
>l THEN 182 

1J» n-v>»:z=z-v«« 

182 If X=Z THEN 15 
185 6070 28 
198H=-l:J=V'rl:60T0 

178 
20»PATCSA8:SI:lf 

EX THEN 21 
285 AET • 



Pour vous punir de votre desobeissance, la princesse (WAPMisHe 
noire, maitresse du temps vous a projete dans un lieu 
maudit: DINAME II. Protege par des gardes sans 
merci. infeste de pieges mortels et de monstres, vous 
voila prisonnier de ce royaume. Aurez-vous le courage 
supreme ou la (olie de defier les forces du Mai et de 
retrouver votre epoque ? 



DINAME II 



Lfl PRINCESSE 

UN GARDE 

UN MQNSTBB 

UN TRE30R 

UNC CLEF 

UJlS OflSSEBELLE DE CORDe 



» use potion rmexoue 

' un: "2=hjl£ "OGIBjE 

:.. . -■". PQRTE 
J OU I .?. =~S^=3E SECRET 
* OU m UNE TBRPPE EM PIEBR 
I DE L EPU 

-'■ "= :■.: ; _ ,-■• s;-e_ w s 
I UNE GRILLE 



Olivier DENIS 

Mode d'emptoi: 

Vous etes represents par un * a droite de I'ecran. Pour gagner. il 
vous faut trouver la princesse. la luer et revenir vivant au point de 
depart (conservez au moins un point d'endurance). 



Explication des 4 chiffres en haul a droite. 

- Le premier entre 11 et 34 : Points d'endurance. 
■ Le deuxieme: nombre de clefs. \^-J 

- Le troisieme: Nombre de pieces dor transponees ( 1 - 1000 \^l 
pieces). ^^S^"^ 

- Le quatrieme: Nombre de residents tues. 

II ne suffit pas de vouloir ouvrir une porte. encore faut-il avoir la 
bonne clef. De toute facon. ne vous etonnez de rien, la sorceilerie 
mene le jeu. 






- - RANO _ 
110 LET C-NOT PI 
115 LET 0>50N PI 



900 PRINT RT L 
918 PRINT AT k 
920 PRINT AT M 
930 GOTO 740 
1318 LET PIP, 01 



P. INT PI 



128 LET 
123 LET 
138 LET 
133 LET «. 5 
148 LET I. a 
1*3 LET J-7 

158 LET «..• 
166 LET L«9 
196 PRINT AT L,U," 

18? PRINT TR6 j;"- 

1S6 PRINT TAB j;-- OlNI 

159 PBINT TAB J, •- 
169 LET H.19 

161 PRINT TAB J.;" - — 1366 LET SA>6 

"' ,_-„.. 126? GOTO »8»D 



»■• UC ' '1C.U 

1221 GOSUB MB 

1222 GOTO IC 
1238 IF UP THEN RETURN 
1231 POKE LAtPA-D.X 
1246 GOTO 1259 

1258 IF UA THEN RETURN 
1253 POKE LA»PA-D,0 

1259 LET BlID.R TO 51» x 
T S""ENGAGE." 
1268 LET TR.INT IRND*H) 
(G.Ol /H) 
1261 G03UB EB 
1252 GQSuB ZA 
'263 LET P IG,D> >P(G,D) H 



ES MURS 



178 LET 0.12 

17B LET P. 13 

188 LET 0-14 

165 LET R-1S 

198 LET 3-16 

193 LET T-l? 

288 LET U-1S 

283 LET U-19 

218 LET LI-28 

213 LET X-21 

22a let y.aa 

223 LET Z-23 

238 LET flfi-24 

231 LET P.B-1278 



248 LET Cfl-28 

341 LET CC-C 

245 LET DA-37 

248 LET OB-Z 

34? LET DC«C 

358 LET ER-28 

331 LET EB-2S28 

233 LET EC-C 

233 LET PR. 39 

235 LET PB-1691 

257 LET fc-c 

268 LET Gfl.30 

261 LET 08-1383 

262 LET GC-C 

265 LET Hfl-31 

t66 LET HB-3B3B 

67 LET IB-C 

266 LET JB.C 
369 LET MC-C 

278 LET KA-L03+HA 

271 LET KB-C 

272 LET IC-1298 

273 LET JC»C 

274 LET KC«C 

276 LET LR-PEEK 16396*as6»PEEK 
15397*0 

27B LET LB-C 

277 LET HB-C 
376 LET NB-C 
379 LET OlS-C 
388 LET RR-C 
281 LET PR-Kfl 
262 LET OR-C 

283 LET PB-1228 

284 LET B6-&ae 

285 LET UA-1475 
265 LET RB-1218 

267 LET 3B-C 

268 LET TB-C 

269 LET LC-C 
298 LET Ufl. 2085 

291 LET UB*C 

292 LET «C»C 

293 LET UR-2255 
295 LET -JB-C 
386 LET XA-1339 
381 LET XB-C 
386 LET YR-125B 
386 LET YB»C 
318 LET ZA«1399 
311 LET ZB-C 
338 DIM PtU.D) 
323 DIM 81(6,99) 
338 LET PCD, 6). INT (RND«I 



1278 LET TR 

1271 LET Pti 

1288 IF piO.hmio men uuiu 1; 

1281 IF 5fl THEN PQe.E LA*(PA-D 

1283 LET SAsC 

1234 GOTO IC 
12BS CL3 

1235 PRINT AT 



SA TRRPP 
R MASIE 



ooSrerca mqrt- 



,RT M 



m 



'■CUS PEPRI 



1288 5TOP 

1298 PRINT RT C.Gi" ": 

RT C.GiPlD.D) ,AT fc,U;P(E,D) , RT C 

,HJPiF,0);AT C,P;P(G,0» 

1291 RETURN 

1388 FOP 8-D TO LEN BI<D)-0 

1381 PRINT RT C , UJ B% 10 , D+B TO P* 
B) 

1382 IF 6>S AND PEEK ILfUU) .C RN 
PEEK (LA*U) =C TmEN GOTO 1384 

1383 NEXT B 
1304 LET B»ID| ." 



WE PIEU 



448 PRINT 

468 PRINT 

468 PRINT 

478 PRINT •' 




1385 RETURN 

1475 LET Mfl-0 

1476 RETURN 

1485 IF LB THEN GOTO 3680 

1486 GOTO Ufl 

1490 IF UA THEN RETURN 

1491 LET BttG.R TO BS) s'flE PIER 
RE S — EST OETRCHEE 0E3 PEMPARTS 
DU DONJON, 

1492 GOTO 1630 

1493 GOTO XR 
1S2S RETURN 

1538 IF Ufl THEN RETURN 
1531 GOTO FB-D 

1535 IF JR THEN RETURN 

1536 LET Pfl-439 

1537 G05UB RB 
1533 GOTO 2193 
1548 RETURN 

1545 PRINT RT L,P;"^Hk" 

1546 GOTO XR 

1350 PRINT RT L,P;"l^fc" 

1561 LET 08=151 

1B52 IF N6 THEN RETURN 

1553 POKE LR*311.166 

1554 RETURN 

1555 IF NB THE" GOTO 1550 

1556 LET NB-0 
1537 LET OR. 151 
135B G05U6 2827 
1559 GOTO PB 
1365 GOTO 1558 

1570 IF Ifl THEN RETURN 

1571 GOTO UR 

1573 IF UR THEN RETURN 
1676 LET PR-414 

1577 LET BJCO.R TO 7S)»"BE P0NT- 
LEUIS EST ENSORCELLE PRR MOMENT. 

1578 GOSUB EB 

1579 GOTO ZR 

1SB0 IF IR THEN RETURN 

1581 LET PR-413 

1582 GOTO 2875 
1585 RETURN 
1390 GOTO YR 
1395 RETURN 

1685 IF Jfl THEN RETURN 

1606 LET 81(0. R TO 66) -BE TRONC 
EST 0LI33RNT. ..." 

1607 LET PR. PR*99 
1605 GOSUB 2180 
1609 GOTO FB*E 
1615 RETURN 

1620 GOTO YR 

1630 RETURN 

1536 PRINT RT L,FR 

163? LET 61 (D,R TO 

EHENT. ,, 

1636 GOSUB ZR 

1639 GOTO I860 

1548 IF NOT HC THEN RETURN 

1641 CLS 

1642 PRINT RT K,E,"JE U0U5 FELlC 
ITE--RT F.C.'DE UOTRE REuSSITE C 
RB MEME'.RT F.I,-M0I,UE N""Y SUI 
5 PR5 ENCORE", RT F , K , 'PRRUENU . . . 



38J . W 



ecou 



1834 PRINT RT R,0," " 

12 JE NEXT R 

1836 PRINT RT L,D,"-",RT L.O. 

153? GOTO FStE 

126J Pamr ST L,FO, " 

1951 GOSuB EB 

:2=a GOTO RB 

1878 GOSUB GB 

1371 PRINT RT fi.O," — >' — " 

1872 LET B»ID.R TO 671 

UOUS ONT ECRRSSE. " 

157-; PRIfiT BT R,0, '■ 

1375 GOTO PB*D 

1388 FOR B-D TO H 

1331 NEXT B 

1882 RETURN 

15;; ;;to ufi 

1938 PRINT RT 0,T,"»« 

1901 GOTO RB 

1905 GOTO UR 

1918 GOTO 1900 

.'li'z ::iTo ufl 

1935 GOTO 2100 

I960 GOTO UR 

1985 GOSUB 2975 

1985 GOTO EB 

1330 GOTO Ufl 

:;;; „et e»<D,R to 96) 
C _C" "EST 3L00UEE COHHE 

.^ET OR EST ENSORCEwLE 

1996 GOSUB ZR 

:i5? _:T B»1D,R TO 
REZ.ENFERHE ICI...- 

:-=.: ,:^-j :~ 

liii GOTO 1285 

2S25 RETURN 

2838 GOTO UR 

2078 GOTO 1988 

2073 IF UR THEN GOTO 1988 

2075 GOSUB EB 

2877 LET BllD,R TO 61) 

URE" 

2873 GOTO 1288 

2888 GOTO ufl 

2835 LET PR.PR»33 

= 3iC PET-jBN 

2108 PRINT RT P,Afl,-'"',flT N , Z i " 

",AT O.X;"* (".RT P,W,"« ."Jfl 

T 6,U, ■■* t'-.AT R,f ;" ," 

2181 GOTO H6 

2185 IF NOT LB THEN GOTO Ufl 

2186 PRINT AT 0,CR; " ( " 
2110 RETURN 

2115 IF NOT NB THEN GOTO UA 

£116 PRINT RT O.ER, " " , RT P.EA 

i "t ", AT 0,FR, ■••'• 

2117 IF NOT IB THEN PRINT RT P,C 

R, "C" 

2 128 RETURN 

2138 GOTO UA 

2145 GOTO UR 

2158 RETURN 

2155 GOTO Ufl 

2185 RETURN 

2198 GOTO FB-D 

2195 PRINT RT R,P;"» " 

2196 GOTO 2345 
2285 RETURN 
2345 GOTO UR 

2350 IF Ufl THEN RETURN 

2351 LET B«(D,R TO 59J ."BES HflRC 
HE5 50NT GLIS3RNTES. . . ." 

§352 LET PA.514 
253 GOSUB 257B 

2254 GOTO F8*D 

2255 LET Pfl.PR-33 
2236 RETURN 

2360 GOTO UR 

2365 PRINT AT , flfl, "■'■; AT R.Z, " 
■ ,RT 3,Y,' J "iRT " 

2266 IF NOT OB Ti * 

i. S" 

2267 GOSUB 2100 

2366 LET Bfl.r 
2369 RETURN 
22S0 GOTO Ufl 
2365 GOTO Ufl 
2290 RETURN 

2395 IF IB THEN RETURN 
2296 LET IB.D 
229? GOTO PB 
2310 GOTO UR 
2313 RETURN 
3330 SOTO UR 
3368 LET PR. 571 
3361 GOTO PB 
2365 GOTO UR 
3378 GOTO UR 
2373 RETURN 
2388 GOTO UA 
2488 GOTO UA 
3483 GOSUB Ufl 
3406 GOTO 2B?0 
2418 RETURN 
2415 GOTO Ufl 
3433 GOTO Ufl 
2438 RETURN 
2458 GOTO Ufl 

2455 PRINT RT R, FR: ■■.•■;( 
»",ST T. gfl," ■ ",RT U.EI 

r u.cfl. iatmm 

2456 if 06 THEN OOTO Ufl 
245? PRINT AT U,ER,"I" 
3436 RETURN 
3475 GOTO Ufl 
2*80 RETURN 
3465 GOTO Ufl 



EN PfliNT'flT S,Z 



(RNCtE) 



1643 STOP 
1653 GOSUB ZA 
1668 GOTO Ufl 

1665 LET PA.B38 

1666 GOTO FB 
1678 LET PA.e64 
1671 GOTO FB 
1675 LET Pfl-665 
167f, GOTO FB 
1688 LET Pfl-633 
1681 GOTO FB 
1685 LET PA. 681 
1887 GOTO FB 

1690 LET PR*603 

1691 LET Bt(0,B TO 49j."BUELLE C 
MUTTE. 
1593 GOSUB EB 

1693 GOSUB ZA 

1694 GOTO AB 
1708 LET Pfl.439 
1782 GOSUB AB 

314 THEN 1793 OOTO 3198 
1738 GOTO Ufl 

1745 IF Ifl THEN OOTO 1748 

1746 LET PA.PA*66 

1747 RETURN 

1748 C03U8 UA 

1749 RETURN 
1 ,''j'.l i^GTO UA 
1770 IF Jfi THEN RETURN 
"71 LET BJiO.R TO 57)-"B03 MRIN 



Aft 



_48 G05U6 IC 

568 LET IA-INT (RNOtE 

685 POKE LAtKR.Z 

690 IF Kfl<-316 RNO Kfl 

LET IA-O 

780 IF NOT Ifl THEN GOTO 900 

718 PRINT RT L,T; " " 

720 PRINT AT K.U," " 

730 PRINT RT H _ 

740 LET JR.ImT 

741 POKE LA. Kfl 

743 LET OB-Z 

745 LET SA.C 

768 LET MR-C 3 ONT 0LI33E... 

768 LET Nfl.C 1773 GOSUB Ufl 

778 LET Ofl.Pfl 1773 GOTO 1687 

618 LET PR.KR. HNKEY«--'B") -(INK 1685 OOTO Ufl 

EYJ" ■5*1 tlINKeY««"6") •33-(INKEY» 1815 OOTO 3688 

"7") §33 ieaa let pa. 353 

620 IF PA-OP THEN GOTO 810 

360 COKE LA.KA.OA 

370 GOSUB PR*H.Rfl 

088 IF NOT MR THEN LET Kfl.Pfl 

863 IF NOT Nfl THEN LET OA-PEE: 



2530 GOTO Ufl 
2549 GOTO UR 

2545 PRINT RT R,P,",",AT P.N;" 
1", AT 0,0," 

2546 OOTO : 
2538 GOTO 
2555 IF ufl THEN RETURN 
2356 PRINT AT R,0, " > ♦ I" 
255? GOSUB GB 

255B PRINT RT R.O, 1 '-)* <-" 

2569 GOTO 1870 
2365 RETURN 

2570 GOSUB 3100 

2571 PRINT RT R,P, "« 

2572 GOTO EB 
2575 GOTO UR 
2585 GOTO Ufl 
2398 GOTO UR 
2395 RETURN 
2688 GOTO UA 
8613 OOTO UA 
2620 RETURN 
2640 GOTO Ufl 
2t4S RETURN 
2665 GOTO Ufl 
2698 RETURN 
3735 GOTO UR 
3746 GOTO Ufl 

3780 PRINT AT S,X,"*",AT T, 
".AT U.U," ," 

" ",flT R.Z, 



1821 GOSUB EB 
1022 GOTO 1B1B 
1033 GOTO UA 
1830 POP A.G TO 
1631 PRINT RT R 



? g8 GOTO QB 



fa ja 



, AT fl*0,0, " 



aoauB gb 



J .MI U.W, fl 

2761 PRINT RT O.flfli . , „ 
■ ", AT S,Y, " | ",AT T,BA, 
2752 RETURN 

3755 PRINT RT 3,Y," |" 

2756 RETURN 

2769 IF 06 THEN RETURN 

3761 LET OB'O 

2762 GOTO Yfl*0 
a763 RETURN 
2780 GOTO UR 
3763 RETURN 
3605 GOTO Ufl 
2618 RETURN 
2016 GOTO UA 

itii LET HRi& 




2621 LET Ofl•P£E^ 

2822 GOTO HB-E 

262S w£T Nfl-0 

3626 LET Bfl.C 

2B27 POKE Lfl-Pfl.Z 

3835 RETURN 

= rii^ iCTO UA 

2843 RETURN 

d:EC GOTO UA 

IE?; RETURN 

Ei;C 1GT0 UR 

2»C= 30SU8 Ufl 

2986 GOTO 3878 

29ie PRINT AT 5,Y, - I" 

8911 =ETuRN 

2915 GOSUB UA 

2S1S GOTQ 2365 

2525 GOTO UA 

2S38 PRINT RT U . BR. " ." . AT u, 

2931 RETURN 

2948 GOTO UA 

3943 GOSUB UA 

2546 GOTO 3110 

2SSe =ETuRN 

295E GOTO Ufl 

2973 GOTO UA 

IJ7E =SIST RT N,C," , ".RT U, 

"f. fl I, T i D i"""' aT S,D.".";flT R 

■ ;_AT 0,D,"-",fiT P.O: «';RT 

2976 RETURN 

2-iSS GOTO Ufl 

293S RETURN 

3888 GOTO UR 

3885 RETURN 

3818 GOTO Ufl 

38 15 RETURN 

j:-;; ;;to ua 

3825 GOTO UR 

3835 GOTO UA 

3868 RETURN 

3885 PRINT RT S , X; •■«•■, AT T.U 
•".AT U,U;" ," 

3863 RETURN 

3878 PRINT AT U,0," 

3871 RETURN 

3873 GOTO UR 

3898 GOTO UR 

3835 RETURN 

3185 GOTO UA 

3118 IP UB THEN RETURN 

3111 LET JB.O 

J 112 GOSUB RB 

3114 GOTO 1995 

3128 RETURN 

3125 GOTO UR 

3133 IF IB THEN GOTO 3680 

3136 GOTO Ufi 

3148 RETURN 

3148 PRINT RT U.C") |",RT U 

3*146 RETURN 

3150 PRINT RT U,E. " I" 

3151 RETURN 
3168 GOTO UR 
3 165 RETURN 
3 178 GOTO UA 
3175 RETURN 

3188 IP KA-669 THEN GOTO Ufi 
316 1 GOTO Ufl 
3190 GOTO UR 



3388 RETURN 

3285 GOTO Ufl 

3210 GOTO Ufl 

3328 GOSUB AB 

3221 GOTO Ufl 

3355 GOTO Ufl 

3261 LeT BllD.R TO 71). 'IN TOURB 

ILLON MflGIOUE U0U5 ENTRRINE. . . . " 

3563 GOSUB ZA 

3263 IF NOT LB THEN PRINT RT u,6 

0, "C" 

3364 GOTO AB 
3310 GOTO Ufl 

3315 GOSUB Ufl 

3316 GOTO 3160 
3328 RETURN 
3323 GOTO Yfl 
3338 GOTO Ufl 
3335 OOTO UR 
3348 GOTO 3368 
334S RETURN 

3350 IP MB THEN RETURN 

3351 LET HB-D 
3353 GOSUB PB 
3333 LET OA-136 
3355 GOSUB 3070 
3369 PRINT AT U 

3361 IF HB THEN 

3362 PRINT AT U,n, u 

3363 GOTO AB 

3365 GOTO UA 
3375 GOTO Ufl 
3365 RETURN 
3420 GOTO Ufl 

3425 IF LB THEN RETURN 

3426 LET LB.D 
3*28 GOTO PB 
3590 GOTO UA 
3500 CL3 
3605 PRINT "J 

3610 pan 



i'g6totb 



jit. 



3638 PRiN m. am 

5^4 8 pjtIN "Mk ^HB 

J660 P^Q "JMH «■■ 

!s70 print __jmm^^* MM 




HHKH 

W-!-HJ:H!i 

u-vm-J-.n:* 

«-!-■■ J:»«i 
d:«n 



3820 L_ 

3631 LET Ph. PA 

3622 LET 08*74 

3623 Ofouj HB 



3iiC sor- 

3B6* ;:- . 

-~iz =;-_;-. 

: i c 5 sotc . - 

3953 RfTTURN 

2-ic :■ ; - ; . - 

-;;; rcturm 

481« BOT : 15*1 

401? LET UB-U 

«« L£l UB -Ufl -INT :■.: tl 

4919 LCI PIO.I 



- .• ; - 
4«aa 

4933 



P P(O,0 ... 

P uB>C THEN GOTO 4 

£T 61 t ,C TO 64P ■' 1 

--ire est na$n 



Then GOTO 1288 



-r;-.- at 

•«M1 GCSuB ZA 

-o:s GOTO IC 
48S5 RETURN 

4880 GOSUB 385? 
iet: GOTO 5785 
iC-C RETURN 

i87S IP 55 TMES GOTO 4C?B 

4876 PRINT AT F.S;" P~ 

4877 GOSUB MB 

4078 IF NOT UC THEN GOTO 4116 

4079 RETURN 

4888 IF 58 THEN RETURN 

4881 LET P 10,0! >P lO.D) .0 
4C82 LET SB. 6 

4033 GOSUB MB 

4864 GOTO IC 

1835 GOTO UR 

4115 RETURN 

4H5 LET JC-D 

411? GOTO Xfl.O 

4 128 GOTO Ufl 

4125 IP NOT ufl THEN GOTO 6796 

4 138 RETURN 

4 155 GOTO UA 

4160 PRINT AT P.O; " 

4161 RETURN 
4 178 GOTQ UR 
4225 RETURN 

4230 LET PR. 245 

4231 GOTO PB 
4235 GOTO UA 
4240 RETURN 
4245 GOTO UA 
4268 RETURN 
42S5 GOTO UA 
4298 RETURN 
4348 OOTO UR 
4398 RETURN 
4J*5 GOTO 4230 
4408 GOTO UA 
4405 RETURN 
4430 GOTO UR 
4455 RETURN 
4*85 GOTO UA 

4493 IP Tfl THEN RETURN 

4496 GOSuB EB 

4497 LET TB.D 
4499 GOTO 4015 
4588 RETURN 
4553 GOTO UA 
4568 RETURN 
4363 GOTO Ufl 

4370 PRINT AT I,U," !",AT H,U, 

437B RETURN 

4380 IP UR THEN RETURN 
4581 PRINT AT I .T, " * " 
4BB2 GOSUB OB 
4583 PRINT AT I,T, "•+" 
4564 GOTO XR 
1303 RETURN 

4398 IP Ufl THEN RETURN 
4391 GOTO Ufl 
4600 RETURN 

4608 IF Ufl THEN RETURN 
4608 LET PA. 321 

4607 LET BIID.R TO 4?)."»0uS GLI 
S3EZ. 

4686 GOTO F6*D 
4610 RETURN 

4618 IP NOT KC THEN OOTO Ufl 
'516 PRINT RT M.Dfl,"- ".AT H.Cfl, 
";AT O-Dfl;"*" 
'— NOT XB THEN PRINT AT I,E 

4628 RETURN 

4625 IF XB TMEN RETURN 

4625 LET XB-0 

4527 GOTO MB 

4668 GOTO Ufl 

4660 IP NOT OC THEN OOTO Ufl 

4661 PRINT RT 1,0," " ; RT M.D," 
",flT G,E.""" 

4663 IP NOT Tfl TMEN PRINT AT I,P 

, "7" 

4663 RETURN 

1715 GOTO UA 

4728 GOSUD 3656 

4721 GOTO 8705 

4723 RETURN 

4730 IP NOT YB TMEN GOTO XA 

4735 IP NOT YB TMEN PRINT RT J.R 

4736 RETURN 
4753 GOTO UA 
4773 00SU6 1773 
4030 GOTO UR 
4635 RETURN 

4 095 GOTO UA 
*908 RETURN 
4988 GOTO UA 

4985 PRINT RT L,C," " , AT K , E , " 
- ",ftT U.E; """ 

4986 IP NOT MC TMEN PRINT RT L,G 
. . lr >.. 

4995 RETURN 

3090 IP HC THEN RETURN 

5001 LET MC-D 

3003 LET P 10, D) -PlD.D) -0 

8003 GOTO AB 

6085 OOTQ UA 

5020 RETURN 

5823 GOTO Vfl 

5800 PRINT AT L,N, "I 

5931 LET Pfl.PA.H 

8033 PRINT AT M.L. '" 
",RT K,I, - 

5033 PRINT AT M,L, '" 
", AT K.I, " 

5034 RETURN 
3045 LET PA.PAtlOa 
5046 GOTO PB 
5050 LET PR. 442 
5851 G0SU6 PB 



5886 IF NOT XB TM 

585? PRINT AT L " 

5858 LET PR.PR-I 

3839 GOTO 8033 

3066 PRINT AT U 4 T^ 



4516 PR 
4617 IP 



,flt 



i.f ; 



vet, 



S086 RETURN 
070 IP Ufl THEN RETURN 
3071 LET B»(D,R TO 44) -' 
IETTCS. 

3973 LET Pfl.PA*90 
5073 003UB 8509 



$uH§ ptgtt 



BILLARD 



ATARI 



Des trous partout et des numeros sur les boules: Test 
americain le billard comme I'Atari. 

Chrislophe MENEGALLI 

Mode demptoi: 

Lorsque la queue toume autour de la boule. le joueur peut laneter 
en appuyant sur Return et changer le sens de la rotation en ap- 
puyant sur la bane d'espace. Une tois la direction d6terminee. on 
appuie- sur Start pour lancer la boule. la force du coup est propor- 
tionnetle a la duree de appui sur la touche. Le joueur 1 joue avec 
les trous du haul et le joueur 2 avec celui du bas. 




1 REM liiiiinuiti.i tittnitDT 

2 REn i * 
J REh t SILLARO t 
« REM * » 

5 REfl t CHRISTOPHE hENEGALLI « 

6 REH t t 
8 REH «ittii«ift«ttttttttt«ttt«» 

10 TRAP 89:DEP*8:yin XRC 15), YRC 15] ,N|t( 1 
5>,N2tC15),SC(2),C0(2):L"l:SCU1*9:SCC2) 
=fl:COm=0:CO(2)=a:&OTO 4889 

14 REn DESSIN COUPLET DE LA BALLE 

15 PLOT X-2, Y-l :QRAUTO X-2. Y»2;«'L0T X-1, 
v-2=DRAWT0 K-t,Y*3i*L0T X,Y-2:DRAUT0 X,V 
*3:PL0T X*l,v-2:DRAHT0 X*1,Y»3 

28 PLOT X*2,v-2;0RAUT0 X»2,Y.3:»LOT X*3, 
Y-l :ORAUTO X.3,Y*2:RETURN 

21 REH DEPLACEttENTS HQRI20NTAUX 

22 COLOR 1 :"LOT X*3,Y-I :ORAUTO X*3,Y»2: p 
LOT X*2,Y-2;PL0T X*2,Y.3 

23 COLOR 3=PL0T X-3, Y-l :ORAUT0 X-3,Y»2:P 
LOT X-2.Y-2:»L0T X-2, Y*3:RETURN 

25 COLOR liPLOT X-2, Y-l JDRAUTO X-2,Y.2:P 
LOT X-1,Y-2:PL0T X-1.Y.3 

26 COLOR 3:»L0T X*3, Y-2:QRAUT0 X*3,YO:P 
LOT X*4,Y-i :DRAUT0 X*4, Y*2:RETUR« 

29 RE" ANALYSE APRES TROU 

38 FOR E-255 TO a STEP -18:S0UNQ 9.E.10, 

19:F0R TI-1 TO 28:NEXT TI=HEXT E=SOUNO 8 

.255,18,15 

31 FOR TI-1 TO 25=NEXT TI:$OUNO 8,8,8,8 

33 REB=RE3*1 :xRCRE3)=X:vRtREB)»Y 

34 IF ECL-! AW Y<30) OR Cl-2 ANO Y>30)) 
AMD REB>REBniN THEN POKE 856, 0:^ "C'EST 
BON "iSCCD-SCa)*! :TR=1 :&0SU8 30:&OT 

11888 

35 TR=8:POKE 656,0:POKE 857, 2^ "C'EST M 
AUUAIS-:SCCL)-SCCL)-| :&0SU8 36:&0T0 1.188 
8 

36 POKE S56,L":P0KE 657, T^:* SCCL):POKE 6 
56,B:IF L=l ANO NJ-2 ANO TR-8 THEN GOSUB 

68:L=2:TIG=1 

37 FOR TI-1 TO 1B0:NEXT TI:(*OKE 656,8:'' 
"UOULE2 UOUS UOIR UOTRE PARCOURS CO^N)" : 

»OKE 784,255 

38 IF L-2 AND TR-8 AND TIGOl THEN GOSUB 
O0:l=I 

39 TIG-8:IF PEEKC764)>3S THEN POKE 656,8 
"AU JOUEUR TLJ- 

" ; :RETURH 
-a IF PEEK 1 764 JOB THEN 39 
43 COLOR 3:PL0T XRC8], YRt9) J^OR 1*1 TO R 
EB=DRAUTO XREI), YRCI) =NEXT I 
45 POKE 656, 8 f* " APPUYEZ SUR S 

TftRT 
48 IF PEEKC532791O0 THEN 46 

58 COLOR 1 :PLOT XRC9), YR(0) :FOR I"l TO R 
EB:ORAUTO XRtl), YRCIJ :NEXT I=IF F-8 THEN 

COLOR 3:&OSUB 15 
56 POKE 656, a:' "AU JOUEUR "JLJ" 
1 ; RETURN 

59 REn CHANGEHENT DU SCHEMA 

60 IF L=2 THEN COLOR 2:PL0T 15a,77:0RAUT 
60,77:COLOR 0:RLOT 10,3:ORAUTO 188,3:R 
ETURN 

65 COLOR 2:^L0T I9,3:0RAUT0 188,3:C0LOR 

a:"LOT I5B,77:DRAUT0 68,77;RETURN 

73 REn ERREUHS 

Be TRAP 88:IF PE£KU95)-8 AND PEEKC186)* 

256*PEEKC137J=5aaa THEN POKE 84,6:'> ""IP 

OKE 84,6:F0R J-l TO 28:NEXT J :&0TO 5809 

98 IF P£EKC135)-8 AND P££KC185)*236«P£EK 

i'187)=5188 THEN 5180 

95 If P£EKU95)=8 ANO PEEKC lBe)»256«P£EK 

fi87)=5158 THEN 5150 

!00 PUN 

200 FOR 1=1 TO 48 

228 READ A 

238 SOUND 8, A, 10, 10 

235 FOR J-l TO 4S:NEXT J 

240 NEXT I 



Z)C81 \J/ SuHbde la 

8974 GOTO PB+O 

saea goto xa 

5885 PRINT RT L,fl; 'I " , RT 

5105 PRINT AT L.Cfli'I" 

siae RETURN 

8119 IF JP. THEN RETURN 

8111 PRINT AT L,CP,,"I" 

5115 LET BiiO.R TO 46) -"BR ERSE 8*66 

S " EST ABRTTUE SUR UOUS. TV." 

5113 GOTO Pfl*D 

5113 POINT RT L.CR; - " 

811? GOTO E8 

jiae print rt L ( RB;"|";flT m,ea 

8131 GOTO .'-;■ 

3128 If NOT L THEN GOTO UA 



250 SOUND 0,8,8, 8:RETURN 

380 DATA 188,188.64,72,84,64,03,63,64,72 

.81, 81, 72, 64., 83, 81, 91, 96, 188, 96, 91 ,81, 81 

■72,72,64,64,53,53 

385 OATA 53,63,53,42,53,63,84,64,72,81,3 

1,90 

318 DATA 188,188,36,63,84,72,81 

998 REtt DESSIN DE LA TIGE (1008-1317) 

1888 A=16:B=:2:SI-I :c =l :rE»l:Ae-e 

1885 IF A*SI>=144 THEN 1180 

1907 IF A*SI<=16 THEN SI--SI:&OTO 1309 

•.003 A=A-SI:CQLOR 2 :PLOT A,B:ORAUT0 X,Y: 

COLOR 3:G0SUB 15 :'E = TE*1 :IF TE> = 12 ANO A 

8SCSI)=1 THEN SI=SI*4 

1011 IF PEEKC53279308 THEN 1030 

1912 IF PEEKC532793=8 THEN F^F*1 :GOT0 10 

12 

1925 SOUNO 9,255,9, I5:COL0R 1 :°LOT A,3:D 

RAUTO X,_Y;C0LOR 3:&0SUB 15:S0UNO 9,8,8,8 

1827 IF FJ1588 THEN A=INTt tRNDCe)*124)*l 
3) :B=INTCCRNOC0)*54)*13):POKE 656,0:? "F 
AUSSE QUEUE " :F=20 

1828 RETURN 

1838 IF PEEKC764303 THEN SI»-SI :"OKE 76 

4,255 

1835 IF PEEKC764)=12 THEN TE=1 :AB=AB*! :& 

OTO 1011 

1936 IF A8O0 AND ABSCSI)>1 THEN AB = 0:SI 

->SI/-4 

1849 COLOR 1 :PLOT A.BsDRAUTO X,Y 

1969 GOTO 1895 

1199 IF B*SI<=11 THEN GOTO 1985 

1107 IF B*SI>=69 THEN SI— SI :&OT0 12B9 

1199 B=B*SI:COLOR 2:PL0T A,B:DRAUTO X,Y; 

COLOR 3:G0SU8 15 :TE=T£*1 :IF TE>«12 AND A 

8SCSI)=1 THEN SI-SIt4 

till IF PEEKC53273)<>8 THEN 1130 

1112 IF PEEKC53279)=6 THEN F=F*i:GOTO 11 

12 

1125 SOUNO 9,255,9, 1S=COLOR 1 :PLOT A,B:0 

RAUTO X.YJCOLOR 3iG0SUB 15:S0UN0 9,0,0,9 

1127 IF FM580 THEN A=INT(CRNO£0)*1241*1 
8):B-INTCCRNOE0)»54)»13):POKE 856,0:? "F 
AUSSE QUEUE ":F-20 

1128 RETURN 

1130 IF PEEKC7643-33 THEN SI— SI:POKE 76 

4,255 

1135 IF PEEK(764)-12 THEN TE-1 :A0-A8»1 :& 

OTO 111 1 

1138 IF A8O0 ANO A8SCSI)>1 THEN A8-8:SI 

-SI^4 

] 150 COLOR UPLOT A,B :DRAMTO X, Y 

1178 GOTO 1189 

1299 IF A«SI>-144 THEN SI— SI:&OT0 1188 

1297 IF A*SI<-16 THEN 1300 

1299 A-»A*SI: COLOR 2:PtOT A,8:0RAUT0 X,Y: 
COLOR 3:&0SUB 15:TE-TE*1 :IF TE> = I2 ANO A 
BSCSD-1 THEN SI-SIt4 

1211 IF PEEK(53279)<>6 THEN 1230 

1212 IF P£EK(532?9)-6 THEN F-F*l :&0T0 12 
12 

1225 SOUNO 8,255,8, 15:C0L0R I :RLOT A,B:0 
RAUTO X,Y:COLOR 3:G0SUB 15:S0UN0 0,0,8,0 

1227 IF F>1500 THEN A-INTCCRNO(0)tl24)*l 
8):B-INT(tRHOC0)*54)*13):POKE 656,8:-> "F 
AUSSE QUEUE " :F-29 

1228 RETURN 

1238 IF PEEKC7841-33 THEN SI— SI : POKE 76 
4,255 

1235 IF PE£K(764)-12 THEN TE-1 :AB-AS* 1 :G 
OTO 1211 

1236 IF A8O0 ANO ABSCSI)>1 THEN A8=0:SI 
-SI^4 

1250 COLOR 1 :PLOT A,B:ORAUT0 X,Y 
1270 GOTO 1209 

1300 IF B*SI<-11 THEN SI— SI:GOTO 1005 
1307 IF B*SI>-83 THEN 1299 

1309 B-B*SI:C0LOR 2:PL0T A,B:ORAUTO X,Y: 
COLOR 3:G0SU8 13 :TE-TE*1 :IF TE>-12 ANO A 
BSCSI^l THEN SI-SH4 



1311 IF PEEKC53273106 THEN 1330 

1312 IF PEEKC532731-6 THEN F-F*I*:GOT0 13 
12 

1325 SOUNO 8,255,0, 15:CDL0R 1 :<>LOT A,B:D 
RAUTO X,Y:COLOR 3:G0SUB 15:S0UND 8,0,0,8 

1327 IF F>159e THEN A-INTCCRN0t8)tl24)*I 
8):B=INTttRNDC8)<54)tl3) :POKE 656,8:' "F 
AUSSE QUEUE '■ :F-28 

1328 RETURN 

1330 IF PEEKC784) = 33 THEN SI = -Si:<>OKE 76 
4,255 

1335 IF PEEKC764) = 12 THEN TE-1 :A8 = AB»1 :G 
OTO 1311 

1336 IF ASO0 ANO ABSCSI)>1 THEN AB=0:SI 
•SI^4J 

1350 COLOR 1 :*>LOT A,8:0RAUT0 X,y 
1370 GOTO 13B9 

3999 REM PRESENTATION 

4000 GRAPHICS 0:DL=PEEKC569)'258tPEEKC56 
1)*4:R0KE 0L*2,7:P0KE DL^S^^OR 1=4 TO 
9=P0KE 0L*I,6:NEXT I :°0K£ 752,1 

4058 POKE ?08,148:POKE 783,28:R0KE 718,2 

6:R0K£ 711,196:R0KE 712,26 

4188 ? '■••:? " bi Hard " ; :RE" 

£N niNUSCULE ET U. I. 

4158 ? "":? "CHQISISSE2 LE MENU 

AUEC ";:? " LES QUESTIONS ':? " 

4280 GOSUB 208 

5000 ? "NOHBRE DE JOUEURS" ; :INPUT NJ 

5020 ? " -NOn DU JOUEUR 1";:INPUT Nl« 

5040 IF NJOl THEN ? " -NOn OU JOUEUR 2 

■•;:INPUT N2« 

5088 LNl=LENtNl«) :lN2=L£NCN2») 

5138 POKE 84,10:-> ''NOnBRE 0£ BANDES HINI 

HUM M ;:INPUT REBfllN 

^158 POKE 84,12:-> "TAILLE DES TROUS C 1 =G 

R. 2=PE. 1 " ;:INPUT TAIL 

5200 IF TAIL = 1 THEN n!LHIN=74 :MILf1AX=84 : 

C0XttIN=23 =COXMAX= 1 36 :COYflIN= 1 6 :C0YHAX=68 

5259 niLMINa?6:niLnAX=82:C0XniN=2] :COXHA 

X=J 38 =C0Yf1IN= 18 :C0YMAX»62 

9999 REM DESSIN TABLE( 10088-10123) 

18888 GRAPHICS 7:PuKE ?12,28:' : '0KE 718,26 

:»OKE 708,26:ROK£ 709,26:COLOR 2:°L0T 10 

.5:DRAUT0 !50,5:QRAUTO 150, ?5 

10010 ORAUTO 10,75:°OK£ 785, 1 :°OKE 85,10 

:ROKE 84,5:XI0 IB, »6,0,0, S : ' :"0K£ 752,1 

10040 RESTORE 10051 

10058 COLOR 2:RL0T 12,7:RL0T 12,?3;PL0T 

148,73:RL0T 148,7:C0R 1=1 TO 42:READ M.N 

.P,Q:RL0T n,N:0RAUTO P.QrNEXT I 

10051 POKE 719, 14:t>0KE 799, J99:<>0KE 709, 

28 

10199 DATA 19,5,19,75,11,5,11,75 

19191 DATA 10,6, 150,6, 10,74, 150, 74 

10102 DATA 149,7,149,73,12,13,12,67 

10103 OATA 13,14, 13,68,14, IS, 14,65 
19104 DATA 15,16, 15,64 

10105 DATA 18,7,77,7,82,7,142,7 
18106 OATA 13,8,76,8,83,8,141,8 
10107 OATA 20,9,75, 9,84,9,149,9 
19196 OATA 21,19,75,10,84,19,133,19 
19119 OATA 18,73,77,73,82,73,142,73 
tail! OATA 19,72,76,72,83,72,141,72 

19112 OATA 29,71,75,71,84,71,149,71 

19113 OATA 21,79,75,79,04,79,133,79 

19114 DATA 149,13,149,67,147,14,147,86 

19115 OATA 146,15,148,85,145,16,145,64 

19116 OATA 12,8,13,7,12,72,13,73 
18117 DATA 147,7,148,8,147,73,148,72 
18113 OATA 8,2,4,2,0,7,4,7 

18128 OATA 2,3,2,8,153,78,154,79 
18121 OATA 159,73,154,73,155,77,155,74 

10122 DATA 157,77,157,74 

10123 OATA 18,3.169,3,150,77,60,77 

19199 REn CAORE TEXTE 

19200 POKE 656, 1 : POKE 857, 12-LN1 :' Nl«;: 
°OKE 637, IS: 1 * "SCORE =0 COUPS: 1 
10220 IF NJ-2 THEN POKE 656,2:P0KE 637,1 



2-LN2:-> N?«;!«>OKE 657. IS:* "SCORE -9 
COUPS :- 

19999 REn INITIALISATION BALLE 
11969 IF OEP-0 THEN COLOR 0:»LOT IB, 3:0* 
AUTO IB0,3:POKE 656,0:ROKE 657, 2:' "Au J 
OUEUR 1 -:OEP=! 
11198 X-INTURNOt0)tl21)*19): v =INT£(RHOt 
9}*52)*14):COL0R 3:&0SUB 15:G0Sue 1900 
11993 REn DEPLACEriENTS 8ALLE 
12000 XRt0)=X:^(9)=Y:REB = 0:CO(L)"CO(L)» 
1 :POKE 656,l:P0KE 657, 35:° CO(L) 
12919 IF XOA THEN 1 20S0 
12045 IF B<38 THEN U=15000:U=-15800:GOTO 

12150 
12047 IF B>30 THEN U=— 15099 :U* 15000 :GOTO 

12150 
12959 U=CY-B)'CX-A):U=8-(AtCY-B)'CX-A)): 
IF A<X THEN SIX=1 :A=9:ENU=25:&OTO 12100 
12055 A=9:SIX=-1 :ENU=22 

12188 F«F-lsIF F=8 THEN R£B=REB*1 :KRCRE9 
l--*X:"RCREB]--Y:TR = 8:r J 0SUB 36:&0SUB 100< 
OTO 12888 

12101 IF XOA THEN GOSUB ENU:X-X*SIX 
12150 Y1-*U«X*U:DEL=Y-Y1 :0EL»INT£OEL) 
12298 IF 0F.L<8 THEN 12328 
12281 IF DEL>8 THEN 12228 
12292 IF (X-18 OR X=14]l AND (Y>COYnAX 
R Y<C0Yf1IN) THEN COLOR 1 :G0SU6 15:&0T0 3 
8 

12284 IF X=14I THEN U— U:U=2*Y-U:SIX— 1 : 
ENU=22:REB=REB*1 :SOUNO 8,255,8,15:^0* S- 
1 TO 3:NEXT S:SOUNO 8,8,8,8 
12205 IF X-18 THEN U— U:U=2*Y-U:SIX-1 :EN 
U=-2S:REB=REB*1 :SOUNO 8, 255, 9, 15 : C 0R S=l 
TO 9:NEXT S:S0UNO 0,0,0,8 
12286 IF X=1B OR X=14] THEN XR(REB)-X:vr 
fREB)=Y 

12209 GOTO 12)08 
12212 REH BALLE MONTE 

12220 IF Y-Y1-DEL>8.5 THEN D£L=0EL*1 

12221 FOR 1=1 TO DEL :COLOR 1 = p LOT X-1,v. 
3=0RAUT0 X.2.Y»3:RL0T X-2.v.2:C>L0T X»3.' 
*2 

12225 COLOR 3:PL0T X-2,Y-2=PL0T X»3,Y-2: 
PLOT X-1,Y-3:0RAUT0 X»2,Y-3 
12236 Y-Y-i:IF YOIS THEN 12238 

12231 IF X<C0X1HN OR X>COXMAX OR (X>MILM 
IN AND XCIILMAXJ THEN COLOR 1 I GOSUB 13 «G 
OTO 30 

12232 U— U*26:u— UiREB-REB'liSOUHO 0,233 
,9,13:F0R S-l TO 51NEXT S:SOUNO'0,0,0,0 

12233 XR(RE83°X:YR(REe)-Y:ri0T0 12160 

12238 F-F-l:IF F-0 THEN REB-REB+1 1XRCRE8 
)-X:YRCREB)-Y:TR-0:&OSUe 38:GOSUe 1600IG 
OTO 12806 

12239 NEXT I=IF X-18 OR X-141 THEN 12202 

12240 GOTO 12100 

12319 REM BALLE OESCENO 

12320 IF Y-Yl-DEL<-0.3 THEN OEL-OEL-1 

12321 FOR I— I TO DEL STEP -I :IF Y<>66 T 
HEN 12326 

12322 U-132-U:U--U:REB-REB*1 :SOUHO 8,235 
.0, 10:FOR S-l TO 5:NEXT S:SOUNO 8,8,8,6 

12323 XRCREB)-X:yr(REB)-Y 

12324 IF X<COXMIN OR X>COXMAX OR CX>MILM 
IN AND X<MILMAX) THEN COLOR 1 :&0SU8 13:G 
OTO 30 

12325 GOTO 12199 

12326 COLOR 1 :PLOT X-1 , Y-2:0RAUT0 X*2,Y- 
2:PL0T X-2,Y-l:PL0T X»3,Y-1 

12327 COLOR 3:PL0T X-2,Y*3:PL0T X*3,Y*3J 
PLOT X-1 ,Y*4:0RAUT0 X*2,Y»4 

12338 Y-Y*I :F-F-1 :IF F-0 THEN RE8"RE8»i: 
XRCREB)-X:vRCREB)-Y:TR-e:&OSUB 36iGOSu0 
1000:GOTO 12999 

12339 NEXT UIF X-18 OR X-141 THEN 12262 

12340 GOTO 12100 • 



^*o»^>£j?>^*^?g 



^J^^^S^ 




I I 



8136 PRINT AT L.ORi 

8127 RETURN 
5133 GOTO 8769 
514B GOTO Ufi 
3132 RETURN 
8133 003U8 EB 
3163 GOTO !" 



,AT K,OR, 






PRINT I 



__ ^ RETURN 

52BB GOTO UA 

3203 GOSUB 3126 

32B6 GOTO B4.BB 

5310 GOTO UH 

5313 RETURN 

S3«e GOTO Ufl 



5*87 
54 53 

5450 
8461 
3*82 
5463 
3464 
5473 
3480 
54B6 
8486 
34B? 
54B8 
84flS 
3890 



SB 15 
3S63 
5B70 



- A(, , Ml IS , W, Jk_. 

pint at n,CR;- - - 
•■',RT U.GRi'a" 
PRINT BT N,rn;" • 
AT T,Qfl,---;AT 5, 
'-", AT 0,0R, "-";RT 
OR, "■" 
RETURN 
GOTO EB 
LET PR-PRtO 
LET KR..PR 
LET RRaC 
LET OR«C 
QOTO 410 
GOTO UA 
RETURN 

IF NOT LC THEN GO 
FOR B-L TO U 
PRINT RT e^, 1 '-- 
NEXT B 
RETURN 
PRINT AT 0,E; "t 

GOTO E8 

RETURN 

OOTO YR 

OOTQ UA 

GOTO UA 

LET Bt tO,R TO 841 



3 CRUI3E2. ..." 

8872 IP NOT LC THEN GOTO 5887 

5573 GOTO r*6»0 

8874 GOTO 3587 

338B PRINT AT M,U;"""iRT N,T;" 



3583 RETURN 

8868 IF ZB THEN RETURN 

3380 GOTO UA 

5587 LET LC-0 

5B8B GOTO PB 

6896 RETURN 

33«0 GOTO UA 

3320 GOTO UR 

3323 RETURN 

5&*« GOTO UA 

56*3 RETURN 

5888 OOTO UR 

8690 OOTO UA 

8695 IP NOT DC THEN PRINT RT 0,1 

8896 RETURN 

S73C RETURN 

S7BB PRINT AT P.Oj "I " 

67«8 ir EC THEN RETURN 

3797 LET eC-D 

57eB GOTO YA*0 

6719 PRINT AT P ,R: "■" ; PT 0,R,"- 

,RT R,R, ■ 1 »";RT ft, 8; " | f " 

8713 RCTURN 

3783 G0T8 UA 



3 7G9 RETURN 

3805 GOTO Ufl 

8810 PRINT AT 0, £;"('■ 

6811 RETURN 

5818 IF NOT MB THEN OOTO UA 

5816 PRINT RT S.H;"— ■ ; AT 0,F," 

";HT R,F,"fc I* 

5820 RETURN 

5825 OOTO Ufl 

5343 GOTO Ufl 

5859 IF DC THEN RETURN 

5661 LET DC«0 

8852 GOTO RB 

3833 RETURN 

8S60 GOTO UA 

3673 GOTO UA 

6660 RETURN 

3350 GOTO UA 

3333 RETURN 

5370 GOTO UA 

8373 RETURN 

33DO GOTO UA 

5383 GOTO UA 

3333 RCTURN 

6000 IF NOT AC THEN PRINT AT R,, 



THEN RETURN 



6001 RETURN 

6003 IF AC TM 

efSS LET flC-0 

690? OOTO PB 

6940 GOTO UR 

60*3 RETURN 

6030 PRINT AT 0,T, " 



6661 IF NOT UB THEN PRINT RT R,l 

6966 RETURN 

6070 IF Ufl THEN RETURN 

6071 LET UB-D 

6072 GOSUB HB 
6973 GOTO PB 

6075 IF NOT Ufl THEN OOTO UR n u 
6076, PRINT AT R ,Y , " I" ; AT 0,Y; 

607? IF NOT KC THEN PRINT AT R,Z 

6080 RETURN 

BBB3 IF KC THEN RETURN 

6886 LET KC-0 

60B7 GOTO PB 



, AT R.CR 
6096 IF NOT U3 THEN PRINT AT R,E 

6 103 RETURN 

8110 IF U2 THEN RETURN 

6111 GOTO 3651 

6113 GOTO UA 

6120 RETURN 

613B GOTO UA 

6140 RETURN 

Sulto ptffB 7 



-CHASSE 

AU TRESOR 

Ah ! la COUPE... le rive impossible, le but de voire 
existence. Une chose est certaine, dans eerie aven- 
ture. hen ne vous sera epargne ! 



THOMSON T07,T07 70,9*05. 



Patrick B1ETH 



le CLS!L0CHTf:e.e,e:scREEN 2.b,9 

se goto leaee 

tee rem mise en place tableau 

lie CLS:A«=-8123456789':PRINT • 6 12 3 
4 5 6 7 8 9' 
120 IT AU,l)OI THEN N=1:A-<A(1,1):A(1,1 

>=i:gosub 2e8ee:coTO 120 

139 IF fl(l,JK>l THEN N=l :A = A( I,2>:fl< 1,2 

>=i:gosub 2eeee:GOTo lae 

146 IF A(2,1X>I THEN K=l : A=A<2, 1 >;A(2, 1 

>=i:G0SUB 288Be:GOT0 129 

156 FOR J*I TO 19IL0CATE 8,2»J:PRINT HID 

»(A$,J,1):NEXT:L0ChTE2,2:PRINTGRK8) 

166 FOR J = l TO 1KLINE < 12, 16«I-4)-( 172, 

16»I-4),i:NEXT 

179 FOR 1 = 1 TO U:iINE(16»T-4,12>-<I6»I- 

4,1?2),1:NEXT:X=I:Y=J 

208 REM AFF. OBJETS 

216 LOCATE 8,22,8:PR1NT 'Vous aves : Vo 

us vosez: *:LOCATE 8,24, 9: ATTRB1, 1 :PP1NT 

GR*(9);:ATTRB9,8 

226 N0=l!0(4>=l:0(l>=6i0(2>=6:0<3>=8 

388 REH DESSIN 

319 FOR 1=6 TO 1 

329 LINE(176,8*72tI>-(319,8*?2»I),4 

336 LINE(176*I43»I,8)-(176*143»I,36),4 

346 LINEC268, 18+42»I )-(28S, 18*42«I >,4 

358 LINE(283*88»I, I8>-(268*8B»l,66> f 4 

368 LINE(238,28*24tI>-(258,28*24tI>,4 

378 LINE(238*28»I,2S)-(238+280I,52>,4 

388 NEXT 

398 LINE<176,8)-(268,18>,4 

468 LINE(3I9,8>-(288,18),4 

418 LINE(3I9,88)-(288,68),4 

426 LIMEC176,8e>-<288,68),4 

438 LINE<296,28)-(296,56),4 

448 LINE-(31I,64),4 

458 LINE-<3I1,24>,4 

468 LINE-<296,28>,4 

478 Pl=8:P2=i:P3=l 

488 COLORULOCATE 38, 19:PRINT*N*; GR*( 16) 

:L0CATE33,I1:PRINT - ':COL0R2 

568 REM TEXTES 

518 L0CATE23, 1 1 :PRINT'ACTIONS" 

528 L0CATE23,13:PRINT*l:Prendre objef 

536 L0CATE23,14:PRINT-2:Laisser objef 

549 L0CATE23,15:PRINT"3:Utiliser objet* 

558 L0CATE23,16:PPINT-4:Dessir.er* 

568 L0CATE23,17:pRINT*N:Nord" 

576 L0CATE23,18:PRINfS:Sud" 

588 L0CATE23,19:PRINT*E:Est" 

598 LOCATE23,2e:PRINT*O:0west* 

688 L0CATE27,23,i:PRINT-C0MHAMDE? •; 

868 REM COHHANDE 

885 Z*=INKEfs:iF Z*<>" THEN 885 

818 Z*=INKEY«:IF Z9=" THEN 818 

815 L0CAT£9,9,9 




328 IF Z*='N- 


THEN 


1888 


838 IF Zf=*S* 


THEN 


1186 


848 IF Z»=*E- 


THEN 


1288 


358 IF Z*='0* 


THEN 


1388 


868 IF Zf=*l* 


THEN 


I486 


878 IF Z*='2* 


THEN 


1588 


888 IF Z«=*3* 


THEN 


1688 


898 IF ZS=*4* 


THEN 


1788 


988 GOTO 688 






1988 REM NORD 






1818 IF A(X,Y 


-1>=6 


THE* 



1829 IF A(X,Y>=2 THEN 6368 

1838 IF A(X,Y)=3 THEN 6488 

1849 Y=Y-i:LOCATE 2»X,2*Y:PRIMT GR*(8);: 

L0CATE2»X,2»Y*2:PRINT CRs(l>; 

1656 IF A(X-I,Y)=8 THEN PPI=6 ELSE PP1=I 

1868 IF A(X,Y-1>=B THEN PP2=8 ELSE PP2=1 

1878 IF A(X+1,Y>=8 THEN PP3=8 ELSE PP3=1 

1888 COLOR1:LOCATE38,10:PRIMT* N*:LOCATE 

38,li:PRINT" -;GR*(I3J:C0L0R2 

1B98 GOSUB 5888:C0TO 6888 

1188 REM SUD 

1118 IF A(X,Y*1)=8 THEN GOSUB 5168:G0T0 

1126 IF A(X,Y)=2 THEN 6388 

1138 IF A(X,Y>=3 THEN 6486 

1148 -Y=Y*i:LOCATE 2»X,2»Y:PRINT GR*(9):L 

OCATE 2»X,2*Y-2: PRINT GR*(1) 

1156 IF A(X+I,Y)=B THEN PP1=8 ELSE PPI=1 

1168 IF A(X,Y+1>=8 THEN PP2=8 ELSE PP2=1 

1178 IF A(X-1,Y>=8 THEN PP3=8 ELSE PP3=1 

1188 COL0Ri:L0CATE38, I6:PRINT- ";GR«(15) 

:L0CATE33,li:PRINT* N':COL0R2 

1198 GOSUB 5888: GOTO 6888 

1268 REM EST 

1219 IF A(X*1,Y>=6 THEN GOSUB 5186:GOT0 

688 

1228 IF A(X,Y)=2 THEN 6388 

1238 IF ACX,Y)=3 THEN 6488 

1248 X=X*1:L0CATE 2«X,2«Y: PRINT GR*(6)f: 

L0CATE2tX-2,2»Y:PRINT GR«< 1 >; 

1258 IF A(X,Y-1>=6 THEN PP1=8 ELSE PP1=1 

1268 IF A<X*1,Y>=8 THEN PP2=8 ELSE PP2=1 

1278 IF A(X,'f*l)=8 THEN PP3=8 ELSE PP3=1 

1288 COLOR] :L0CPTE3S, 18:PRINT-N-;GR*< 16) 

:L0CATE38, 1UPRINT- ':C0L0R2 

1296 GOSUB 5899:G0TO 6889 

1368 REM OUEST 

1318 IF A(X-1,Y>=8 THEN GOSUB 5186:GOT0 

688 

1326 IF A(X,Y>=2 THEN 6388 

1338 IF A(X,Y)=3 THEN 6488 

1348 X=X-1:L0CATE 2tX,2«Y:PRINT CR«<6);: 

L0CATE2*X*2,2»Y:PRIHT CP«(I); 

1358 IF P<X,Y*1)*8 THEN PP1-0 ELSE PP1 = 1 

1368 IF A(X-1,Y)=6 THEN PP2-8 ELSE PP2-1 

1378 IF A(X,Y-1)=8 THEN PP3=B ELSE PP3M 



ZX81 4-** 

eiss ooto us 

6166 PRINT RT T,C;-| 

6161 IF NOT OC THEN PRINT AT T ,F I 

t" c " — 
6163 RETURN 

oaso soto un 

6336 PRINT PT T.Y,"! 

6366 RETURN 

6380 GOTO UR 

6365 RETURN 

6300 GOTO UR 

6303 RETURN 

63 IB OOTO UR 

6310 ir OC THEN RETURN 

6316 LET OC-D 

6317 QOTO PO 
6328 RETURN 
6330 OOTQ UP. 
6336 OOTO UP 
6 340 RETURN 
6346 PRINT PT T , J: "• ' , RT U,I 

J", AT \J.r," J '• . RT u,r," 

63*6 IF NOT BC THEN PRINT PT 



1386 C0L0Rl:LOCATE33,ie:PRINTGRs(I4);-t|- 

= L0CATE38, 11 SPRINT* *:C0L0R2 

1398 GOSUB 5886:GOTO 6668 

I486 REM PRISE OBJET 

1418 IF A(X,YX6 OR A(X,Y)>9 THEN GOSUB 

5lB8:C0T066e 

1426 0(A(X,Y)-5>=1 

1438 ATTRB1,!:L0CATE31N0,24:PRINTGR*CA<X 

»Y>);:L0CATE33,9:PRINTGR*(I);:ATTRB8,8:N 

0=N0+1 

1448 A(X,Y)=1:G0T0 688 

1588 REM LAISSE OBJET 

1518 IF A<X,YX>1 THEN GOSUB 5188:G0T068 

8 ELSE C0SUB28188 

1529 L0CATE23,13:PRINT-l:Clef- JL0CATE23, 

14:PRINT"2:Tal j«an-:L0CATE23, I5:PRINT3: 

Flechc-:L0CATE23, 16:PRINT'4:Fiole-:L0CAT 

E23, 17:PRINT'5*-Rien- 

1539 L0CATE27,23:PRINT-COMMANDE7 *; 

1548 ATTRB1, i:Zr=INKEY«:IF ZJ=" THEN 15 

48 ELSE Z=VALCZ*> 

1556 IF Z>5 OR Z=8 THEN GOSUB 51B8:G0T0I 
538 

1568 IF Z=5 THEN GOSUB 2Bl88:G0T05ee 

1576 IF 0<2>=1 THEN 0<Z>=8=N0=N0-1 :L0CAT 
E33,9:PRINTGR*CZ+5);!A(X,Y)=Z+5 

1588 GOSUB 528e:GOSUB28ie8:G0TO588 

1688 REM UTILISE OBJET 

1616 GOSUB2816B:L0CATE23,13:PRINT-O9JET 

UTILISE"; :L0CATE23, 15: PRINT* l: Clef ; :LOC 

ATE23, I6:PRINT*2:Talis«an*: 

1628 L0CATE23, 17:PRINT*3:Fleche*; :LOCATE 

23,18:PRINT"4:FioIc*;:L0CATE23, 19: PRINT* 

5:Rier>*;sL0CATE37,23 

1638 Z*=INXEY*:IF Z*=*" THEN 1638 

1648 IF ACX,Y)=2 GOTO 6366 

1656 IF A(X,Y>=3 GOTO 6468 

1668 IF A<X,Y>=4 GOTO 6588 

1678 IF A<X,Y>=5 GOTO 6688 

1688 G0SUB28I88:C0TO 588 

1788 REM DESSIN 

1718 GOSUB 2B188 

1726 L0CATE23, 13:PRINT "Tapcz la eolonne 

-:L0CATE37,23:Z*=INKEY*:IF Z*=*" THEN 17 



28 

1738 X2=VAL<Z*> 

1748 L0CATE23, 15:PRINT'Tap«2 la li^oe.* 

1758 L0CATE23, 16:PRINT "Puis U nuxro': 

L0CATE23, 17:PRINT* de l'objet.* 

1768 LOCATE 37,23:Zf=INKEY*= IF Z»=*" THE 

N 1768 

1778 Y2=VAL<Zf> 

1780 GOSUB 28180 

1 798 L0CATE23, 1 3: PRI NT " 1 : Scor-> j on" 

1886 L0CATE23, 14:PRINT*2:Monstrc* 

1818 L0CATE23,15:PRINT*3:Cof fre fer«e* 

1828 L0CATE23, 16 = PRINT*4:Clef 

1838 L0CATE23, 17: PRINT'S: Tal is«ar>* 

1848 L0CATE23,I8:PRINT*6:Fleche' 

1858 L0CATE23,19:PRINT*7:Fiole* 

186B L0CATE23,28:PRINT-8:Coffre ouvcrt' 

I87B L0CATE23,21:PRINT-9:£ffaeer* 

1888 L0CATE2«X2*2,2»Y2*2:Zf=INKEYt: IF Z* 

="' THEN 1888 

1898 IF Z*»"l" THEN PRINTCR*(2> 

1988 IF Z»='2* THEN PRINTCRt<3) 

1919 IF Zt=*3* THEN PRINTCRK4) 

1926 IF Z*=-4* THEN PRINTGRK6) 

1938 IF Z»=*5* THEN PRINTCRt(7J 

1948 IF Z*=*6* THEN PRINTCR»(8> 

1958 IF Z*='7' THEN PRINTCRK9) 

1968 IF Z»="8' THEN PRINTCR«C12> 

1970 IF 2«='9* THEN PRINTCR*<1) 

1988 GOSUB 28188:C0TO 588 

5686 REM PORTES 

5816 IF PPIOPI THEN P1 = PP1 : LINE( 184, 24 ) 

-<184,64),4»PJ:LINE-C28e,56>,4»Pl:UNE-< 

286,28), 4«Pi:LINE-(l 84,24 ),4«P1 

5626 IF PP20P2 THEN P2=PP2:HNE(238,28) 

-<238,52>,4tP2:LINE-<258,52),4*P2:LINE-( 

258,28>,4*P2!LINE'<239,28>,4*P2 

5638 IF PP30P3 THEN P3=PP3:LINE(296, 28) 

-<296,56>,4«P3:LINE-(311,64),4»P3:LINE-< 

31 J,24),4»P3:LINE-(296,28),4»P3 

5848 RETURN 

5188 REN IMPOSSIBLE 

5116 C0L0R7:LOCATE27,23:PRINT*IHP0SSIBLE 

*;=F0RI=1 TO 586:NEXT:COLOR2 

5128 RETURN 

5288 REM POSITION OBJETS 

5218 ATTRBI,i:01=8:02=9:F0R 1=1 TO 4 

3228 IF 0<I)=1 THEN LOCATEO t ,24:PRINTGR« 

CI»5);:01=01*3 ELSE L0CATE02,24:PRINTGR* 

< I); :02-02-3 

5238 NEXT:ATTRB8,0 

5248 RETURN 

5388 REM REMISE OBJET 

3319 A<X,Y)=i:O(0)=8:N0=N0-l 

5320 ATTR81, I :L0CATE33,9:PRINTGRf ( 1 >; : AT 

TRB6, 8: N= 1 : GOSUB 28980: C0SUB5289: G0SU828 

5336 RETURN 

6089 REM OBJETS VOISINS " 

6818 ATTRB1, i:L0CATE33,9:PRINT GR*(A(X,Y 

));:F0R I=lT04:L0CAIEie*3»I,24:PRINTCR$( 

I>;:NEXT 

6828 V(1)=ACX,Y*1):V<2)=A(X,Y-1):V(3)=A< 

X*l,Y)iV<4)"A<X-l,Y)tV-13 

6836 FOR 1*2 TO I2:F0R J- 1 TO 4 

6848 IF V<J)=I THEN L0CATEV,24:PRIMT GR« 

(I);tV=V*3 

6856 NEXT:MEXT:ATTRB0,8 

6668 GOTO 588 

6380 REH SCORPION 




6318 IF Z*=*4* AND 0(4)=1 THEN 0=4:R=?:G 
0SUB53B8:GOTO 6898 

6328 GOSUB 2B186:L0CATE23, 13=PRINT*L« sc 
orpion uous*;:L0CATE23,14:PRINT * a PtVJ 

e ! *; 

6338 LOCATE 23, I6:PRINT * VOUS ETES*: 
6348 L0CATE23, 19=ATTR81, 1 : COL0R1 :PR1NT * 

M0RT*;:ATTRB8,8:PLAYMU2J:GOT0 £3889 
6489 REM MONSTRE 

6418 IF Z«=*2* AND 0<2)=I THEN o=2:A=?:G 
OSUB5386:G0TO 6886 

6428 GOSUB 28188:L0CATE23,I3:PR1NT-Le no 
nstr-e wous*; = L0CATE23, 14:PRINT * a devor 

6438 LOCATE 23,16:PRINT ■ VOUS ETES*; 
6448 L0CATE23,I9=ATTRB1, UCOLORUPRIMT • 

H0RT*;:ATTRBB,9:PLAYNU2*:G0TD238ea 
65B8 REM CH-SOU 

6518 IF Z»OM* OR 0(1)01 THEN C0SUB516 
8:G0T05B8 

6528 0< 1 ) = 8J NO=N0-I : A=8: N= 1 : C0SU828868: G 
0SUB5288 

6538 ATTR8I, 1 : L0CATE33, 9: PRINTGRSt 12); :L 
0CATE33,5:PRINTGR*(I1);:ATTRB8,8:L0CATE3 
7,23 

6546 Z«=INKEY«:IF Z»=-* THEN 6548 
6558 IF Z*<>*3* OR 0(3)01 THEN 6586 
6568 0=3:A=6:GOSUB53ee:A<X,Y)=12 
6576 ATTR8I,l:L0CATE33,9:PRINTGR*C12);:L 
OCATE33,5:PRINTGR«(l);:ATTRB8,0:COTO58a 
6588 GOSUB 2B160:LOCATE23, I3:PRINT*La ch 
auve-souris*;:L0CATE23,14:PRINT* a bu t 
out* ;:L0CATE23,15:PRINT* uotre san» ' "; 
6596 L0CATE23,17:PRINT* VOUS ETES*;=LOCA 
TE23, 29: ATTRB1, 1 tCOLORl : PRINT* rtORT"::A 
TTRB8, 8:PLAYMU2*:G0TO238d6 
6688 REM COUPE 

6618 IF 2*<>*I- OR 0(1)01 THEN C0SUB5I8 
9: GOT 0568 

6628 O(l)=8:NO=N0-i:A^i2:N=i:G0SU82eeee: 
G0SUB52B6 

6638 ATT«Bl,i:L0CATE33,5!pRINTGRf(t8);iL 
0CATE33,9:PRINTGR*(12);:ATTRB6,8 
6648 GOSUB 281B8:L0CATE23, I3:PRINT*L* tr- 
esor vous*;:L0CATE23, 14:PRINT ■ ar>partie 
nt*; 



18886 REH INITIALISATION TABLEAU 

16818 CLEAR,, 17JDIM A(ll,ll> 

18828 DEFGRS(8)=9, 16,58,84,88,28,36,64 

1B039 DEFGR*(I )=8,8, 8, 0,0,8,8,8 

18848 DEFGR»(2)-6,38, 13,2,226,62,254, 18 

16856 DEFGR«(3)=6, 126,219,255,193,195, 12 

6,68 

16668 DEFGRS<4)=60, 102,255,255,171,213,1 

71,255 

18078 DEFGR«(S>=60, 102,255,255, 171,213, 1 

7 1 , 255 

18B88 DEFCRt(6)=8,0, 6,223, 165, 191,224,6 

18890 DErCR»(7)=36,98, 189,133, 153,189,96 

,36 



18120 DEFGRt(18)=129, 195,126, 126,68,24,2 

4,126 

16136 DEFGR«Cm = 129.0, 189,98, 180, 195, 12 

9,129 

18148 DEFGR«(12>'8,8,e,2S5,17I,2I3,I7I,2 

33 

18150 DEFGR»(13)=8.0,8,28,42,B,8,8 

1 8168 DEFGR«(14)-8,0, 16,8,252,8, 16,8 

10170 DEFGR<(15)-16,16, 16,84,56,16,8,0 

10188 DEFGR*(16)=0.8 P 16,63, 16,8,0,0 

I0I96 mil»='T504L24DOREMIS0FAFALAS0SO05D 

0O4SI05D0O4S0MILAS0FAH1REDQO3S004D003SI0 

4D0- 

10280 MU2*=*T10O3L24FAHIFAREMIDOREREFAFA 

S0FAHIRED0M1FAL54MILI8REL96RE* 

1021 B COL0Rl!ATTRBl,i:L0CATE7, 7: PRINT-CM 

ASSE AU-:L0CATE11, I i:PRIHT*TRESOR* 

18228 COLOR7:LOCATE4,2!PRINTGR*(3):L0CAT 

E16,14:pRINTCRf(4):COL0R5:L0CATE18, 1 8: PR 

INTCRX2) 

10238 COL0R2:LOCATE5, U:PRINTCR)(6):L0CA 

TE29, 17:PRINTGR*(7):C0LOR4:L0CATE22, 3:PR 

INTCRX8): LOCATE 1, 17:PRINTCR«9> 

18248 C0L0R3:L0CATE38, 1 :PRINTGR*( 18):L0C 

ATE22,20:PRINTCR«(11):COLOR6:LOCATE29, 10 

:PRINTGR*(12) 

10250 ATTR88,8:COLOR2:LOCATE0,23,0:PRINT 

" Abuser sur *; :COLORi:pRINT*entr«**; t 

C0L0R2:PRINT* -.our (oiMnctr* 

18268 PRINT*ou sur '; :COL0RI :PRINT*R"; :C 

0LOR2:PRIKT" pour avoir la regie de j«u. 

18278 Zf=IMKEY*:Z-RND: IF ZiOCHRi(13) AN 

D Z*<>*R* THEN 10270 

10280 IF Zt-=-R' THEN GOSUB 21880 

1 6296 CONSOLE??, 24 : CLS: CONSOLES, 24 

10308 FOR I--1 TO 10:FOR J*l TO 10 

18316 A(I,J)-I 

18328 NEXT:NEXT 

10330 X=8:Y=0 

10340 REM 25 SCORPIONS 

10350 N=?5:A=2:C0SUB 20000 

18368 REM 5 MONSTRES 

18378 N=5:A=3:G0SUB 28008 

18388 REM 2 COFFRES * CHAUVES-SOURIS 

16396 IN2:A=4JG0SUB 28808 

18480 REM I COFFRE * COUPE 

I84I8 N=i:A=5:G0SUB 20000 



1842B REM CLEF 

18430 N=i:*-6:C0SUB 20M* 

10446 REM TALIS***** 

19450 *=i:e*7:LQ$'J9 ?««N 

10460 REM FLECHE 

10476 r#=l:ft«e:COSUB 20—6 

10490 GOTO 100 

290*0 REM POSITICW OBJETS 

20910 Xl'IKT(R«Dfia>>i 

28828 Yl = I«tT(RNf>na'..i 

28838 IF A(Xl,YI)Oj THEN 2Ml* 

28040 IF X]-X AND Yl-y THEN fMif 

28850 »•=)•-] :A<X1,YI>*A 

28868 IF N=B THEN RETURN ELSE GOTO Z$*ifi 

29168 REH ZTFAZi 

28118 ATTR90,0:FOR 1=1 TO 9:L0CATE23. : >• 

I-PRINT- *:«XT 

28128 RETURN 
21808 KEM RECLES 

21818 CLS:PRINT* L« jeu comisic a <to<c> 
uvrir une cou*>e Wi s* trous^e dans 1 zt-. 
3 coffr«s dis- siaules dans le chateau 
aux 188 pieces. * 

21629 PRIWT:PRINT* A *a U £hc d« l'«tr*->. 
un plan du chateau, aw*c votre positton.v 
ous per««t ,a toutjnstant.de dessiner vo 
s decouvcrtcs. * 

21838 PRINTiPRINT* A droitcla Piece ou 
vous vous trouve:ct c« •w'Ult conticnt 
.Sous ce dessm laliste des actions poss 
ibles. * 

21848 PR1NT:C0L0R1:PRIKT* Vcni* aver:":: 
C0L0R2:PR1NT donne les objets a»assci.* 
21858 PSINT:C0LDR1:PR1NT' Vous uose::*! 
:C0L0R2:PRlNT*donnc te tue rcn'erxnt 1c 
s*;:PRINT*pieces voisines.* 
21068 PRINTtPRINT* Les deplacocnts nc 
peuvent se fa ire *uc hori:ontalc»cnt o\t 

21870 PRINT:PRINT* II cxiste 3 coffrcs 

dont l'un contientla coupe, tes deux autr 

es de redout jb 1 ts chauves-souris. * 

21B8B L0CATE28,24,8:PRINT*Appuser sur *: 

:COL0Rl:PRINT-entr««*;;COLOR2 

21098 Z**INXEY*!lF ZS-*' THEN 21096 

2U6B CLS: ATTRBI.i: COLOR! :L0CATE8. UPRIN 

TGR*(2):LOCATE6,4:PRINTCR*(3):LOCATE0.7t 

PRINTGR*(11) 

21116 LOCATE8,10iPRlNTCR«(4):LOCATE0, 13: 

PRlNTGR$(12):L0CATE13,i:PRINTCR*(9)tLOCA 

TE13,4:PRINTGR*(7):L0CATE13,7iPRINTGR*<8 

21120 L0CATE1 3, 10: PRINTGR*(6>i LOCATE 13,1 

3:PPINTCRI(I8):ATTRB8.8:C0L0R2 

21138 L0CATE3, 1 :PRINT "Scorpion* 'LOCATE 16 

,8:PRINT"Fiole (-fnct d«*:L0CATE19, 1 !PR 

INT*tuer un scorpion)* 

21148 L0CATE3,4:PRINT*Monstre*iL0CATEI6. 

3:PRINT*Talis»an <per»et de*: LOCAli: ] ■>. 4: 

PRINT'tuer un fjonstre)* 

21150 L0CATE3,6iPRlNT*Chauve-*:L0CATE4,7 

: PRINT 'sour is*: LOCATE 16, 6: PRINT "Fleche ( 

per»et de tuer 'iL0CATE19, 7:PRIttT-un« <h* 

21160 L0CATE3, 9i PRI NT *Coffr«*t LOCATES, 10 

iPRINT'ferne*: LOCATE 16, 9t PRINT *Cle (pert* 

et d'ouvrir'(L0CATEI9,18:PRINT'un cof*r« 

> 

21170 L0CATE3, 12'PRINT'Cof fre':L0CATE4, 1 

3:PRINT'ouvrrt-:L0CATE16, 12:PRlNT'Coupe 

(dormant 1 a": LOCATE 19, 13: PRINT 'vi. toirr) 



ih.it, 



,(.-■: 



21196 LOCATES, 2! :PR1NT 'BONNE CHANCE '• 

21280 L0CATE21,23:PRINT*Appuser sur 'nC 

DLORi:PRINT'entree-jiCOL0R2 

21218 ZI-INKEY#tIF Z«=" THEN 21216 ELSE 

RETURN 
23888 REM FIN DE PARTIE 

23018 COLOR2:GOSUB28I80:LOCATE23.13*PRIN 
T'VOULEZ VOUS-U.OCAUi'S, 15:PRI»IT'REJ0U£R 
■:L0CATE26,I7:PRINT-0/N ?'iL0CATE37,23 
23828 Z«-lNKCY»:iF Z*=** THEN 23618 
23639 IF Z«-'N* THEN CLSsEND ELSE GOTO 1 
0290 



" 


1 


a 


3 


A 


5 


6 


7 














*■ 




























D 


1 
























































































ACTIONS 

iiPrtjnctr* onj**. 
atL*ir.*t>r «)j»t 

HI'llll-" r*. ,••' 

4iD»s»inpr 
NiNord 

6iSud 




































































































OiOumt 
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VCXJS UO»pFZ( 





ERRATUM SUR TO 7 




ROULETTE du r 


60 




Vous 6tiez sur In 


poim de vous 




enridilr el puis. 


Clnmoz-vous 




ot tapoz los ligiws sulvantos: 


■'.:-„ 


F0RI-8T0JP-1 


:fl(I>=e!M»<I)= 




FJOf (I )=-EL" 


COTO-lie 


ftld 


FO*I=BTOJO- 


:J»B:IFJO»<I)- 


-[.I 


C0T078B 





^j33l 



_373 RETURN 

6560 PRINT RT A,P;— -JflT 6.1 

T';nT t.l;- i •;firr u,6 

U,N^''« ,, ;rt u,m; "■ 



Li" I -;Rt M,b,'r\ 

,ni v,n, • '".RT U,r,;"i f-,1 

T X.O,"i" 

0361 ir NOT PC THEN PRINT RT T,M 
"£■■ 



64.46 
64.5B 
646H 
6470 

e«g0 

0*33 



6363 RETURN 

6306 UOTO UP 

63wS OOTO UP 

6*08 IP MC THEN RETURN 

6*01 LET P 10,01 *f> 10, D> -i 

6*8R LET MC-6 

6*03 OOTO RO 

6*0S RETURN 

6*10 IP NOT OC THEN OOTl 

; 6*11 PRINT PCr T.U:" " 

6*13 IF NOT HC THEN 



63*7 IF NOT CC THEN PRINT RT U,0 6**0 RETURN 



PRINT OT S,U 



0836 
6640 
6B4S 
6046 
0060 
6360 

6613 

6616 

m 



GOTO UR 
RETURN 
OOTO UP 
RETURN 
OOTO UR 
OOTO UR 
RETURN 
ooto un 
QOTO UP 
LET PR- 
PR*66 

liQTO lfjnrl 

OOTO UP 
OOSUB UR 
OOTO 0300 
RETURN 

SOTO UP 
QTQ UP 
PRINT RT 

80T0 UP 
ETURN 
QOTO UP 
G09U6 UR 



0660 
6710 
6713 
6730 
6730 
67*0 
67*3 
6750 
0700 
6766 

6767* 

-c- 

6736 

Knl 

6761 
6 703 
0763 
6770 
0770 

077? 
6700 



SOTO UM 

OOTO UP 

OOTO UP 
RETURN 

GOTO UP 

GOTO UP 

GOTO UP 



IF NOT 26 THEN PRINT RT U,Y 

RETURN 

IF U6 TNEN RETURN 

LET U6-0 

G03U6 MB 

OOTO P6 

RETURN 

PRINT PT U.CR;- ",HT U,8fl 

I ";«T U.OR. ■„■• 
IF NOT U6 THEN PRINT RT U,C 



6701 LET PA-PP-ER 

6702 LET KR-KA-ER 

6703 LET OR-C 
676* OOTO 410 

6798 IF NOT HC THEN OOTO UR 

6796 POKE LR.KR.136 

6797 LET 6i (O.R TO 40) -II LE ' 
MP3 S'"EN MELE. . . ." 

c^a .;o.-.i)n ;.i 

6790 RUN 

0008 RETURN 

6600 OOTO UR 

•910 IF 6C THEN AeTUBN 

6011 LET OC-D 

06 ia ooto we 



008/ goto laoB 

0O6O RETURN 

ooea ijoto ur 

0003 iJOTO un 
0093 RETURN 
6901 PRINT RT T 
! ,n; " •'■.rt u,5. 

,RT U,U,"L 
09»3 RETuSn 
8908 IP IB T»CN 
RETURN 

6906 LET Z6-0 
6987 GOTO PB 
OHIO RETUHN 

?SSS S8?§ SS • 



6823 i . _ 

6638 OOTO UR 

0B*8 uoTO UP 

6060 RETURN 

0066 LET BtlO.R TO 66 

NC RIUIEHC SABLE MQi 

6000 OOSUB ZP 



dossiers 

Belote, rebelote et dix de der ! 

La belote a 57 cartes Apple c'est plus difficile mais c'est bien plus beau 
que la belote a 32 cartes Apple. 

Cette semaine, comme promis, voici un inventaire des cartes disponibles pour les petits trous de votre Apple 11+ et lie Pour les prix 
c'est nimporte quoi, les boutiques se tirant allegrement dans les pattes a coups de promotion et changeant les tarifs a la Vitesse dii 
TGV de 17 heures 45. 

Pour les cartes americaines, c'est encore pire, le dollar ayant tendance, depuis quelque temps, a se prendre pour un ascenseur fou 
Vous serez peut-dtre decus de ne voir qu'une cinquante septaine de cartes, mais nous n'avons pas voulu mettre 237 fois les cartes 
80 colonnes ou les interfaces imprimantes, et nous avons jete les cartes pourries. La denomination ALP n'est pas un nom de 
constructed mais correspond a "A La Pelle" ce qui signifie, en clair, qu'il y en a un wagon et qu'elles sont pareilles que les autres et 
vice-versa et r6ciproquement. 





80 COL ETENOUE 


2.380 




80132 COL 


1.850 


ORBITAL 


ACCELERATOR II 


7.400 


SATURN SYSTEMS 




5.400 


INTERACTIVE MICROWARE 




4.250 


APrLIED ENGINEERING 




7.000 


HELLO INFORMATIQUE 




5.500 


PERSONAL COMPUTER PRODUCTS 


BROSSE A RELUIRE 


7,50 


SHIFT 


CAN 1608 


2.590 


MID 


CAN 1612 M1 


10.030 


MID 


CARTE A WRAPPER 


180 


TOUS MAGASINS ELECTRONIQUES 


C8 


70 


CB 


CNA 212 


4.130 


MID 


COPY MASTER II 


990 


APPLIED TECHNOLOGIES 


CR8C 


2.590 


MID 


DIGISECTOR 


5.400 


MICRO WORKS 


DfTHERTIZER 


3.990 


COMPUTER STATION 


E16CP 


3.050 


MID 


ECHO SPEECH 


1.800 


STREET ELECTRONICS CORP 


ENHANCER II 


1.120 


VIDEX 


ES24 


2.590 


MID 


GRAPLER + 


1.700 


ORANGE MICRO 


happk:aro 


1.100 


HAPP ELECTRONICS 


HC1 


1.770 


MID 


IEEE 438 


3.000 


APPLE 


INTERFACE PARALLELE 


1.290 


ALP 


INTERFACE SERIE 


1.365 


ALP 


MEM 4 


7.430 


MID 


MEM 16 


10.300 


MID 


MEM DOS 


2.400 


MEMSOFT 


MICROS 1 


2.590 


MID 


MOCKINGSOARD 


1.200 


SWEET MICRO 


MODEM NOVATION 


6.225 


NOVATION INC 


MODEM UNIV SECTRA 


2.446 


SECTRAO 


MU-D-1000 


860 


MICRODIMENSIONS 


MUSIC SYSTEM 


5.420 


MOUNTAIN 


P2 


1.410 


MID 


P/S BUFFER CARD 


3.400 


PROMETHEUS 


PKASO 


Inconnu 


INTERACTIVE STRUCTURES 


PORTE-PAROLE 


1.800 


EDICIEL MATRA HACHETTE 


OUICKLOADER SCRG 


1.900 


SCRG 


RAM LEGEND HE HI 


4.900 


LEGEND 


REPEATERR 


420 


HOME 


ROMWRrTER 


990 


MOUNTAIN 


HVB ETENDUE 


2.965 


CHAT MAUVE 


S2 


1.780 


MID 


SMARTCHIP 


5.800 


QUANTUM LEAP 


SOURIS 


1.210 


APPLE 


SPEEDEMON 


2.600 


MCT 


STAR SPRITE 


3.200 


AVANT GARDE 


SUPbHSPHIIb 


3.600 


SYNETIX INC 


TEXTE 80 COL 


1.285 


ALP 


THE CLOCK 


4.240 


MOUTAIN 


TIMEMASTER 


950 


APPLIED ENGINEERING 


TRAC-OENT 


6,75 


SHIFT 


WILDCARD 


620 


CENTRAL POINT 


Z80 SOFTCARO 


3.100 


MICROSOFT 




AJOUTE 64K SUPPLEMENTAIRES 

80 OU 132 COLONNES 

PORTE A 3.6 MHZ LE MICROPROCESSEUR 

POUR BRANCHER TOUT INSTRUMENT DE LABORATOIRE 

ANALOGIQUE/DIGITALE PROGRAMMABLE 12 BITS 16 CANAUX 

COMPATIBLE NORMES VIDEOTEXT MINITEL 

CARTE CP/M 6MHZ 64K + LOGICIEL 

EH EH 

CONVERSION AID 8 BITS 16 VOIES 

CONVERSION ANALOGIQUE/DIGITALE 12 BIT 16 VOIES 

sc 

CARTE BLEUE AVEC BANDE MAGNETIQUE INTEGREE 

CONVERSION A/D 12 BITS 2 VOIES 

CARTE DE COPIE 

CARTE 8 RELAIS + 8 ENTREES TTL 

DIGITALISATEUR D'IMAGES 

DIGITALISATEUR VIDEO 

CARTE PIA + COMPTEUR PROGRAMMABLE 

SYNTHETISEUR DE PAROLE 

BUFFER + DEFINITION DE TOUCHES 

INTERFACE 24 ENTREES 24 SORTIES TTL 

INTERFACE IMPRIMANTE 

INTERFACE IMPRIMANTE+ EXTENSION GRAPHIQUE 

CARTE HORLOGE CALENORIER 

SPECIALISATION ROBOTIQUE 

SC 

sc 

KIT CENTRAL MULTIPLEX 4 POSTES MEM/DOS 

KIT CENTRAL MULTIPLEX 16 POSTES MEM/DOS 

EXTENSIONS APPLESOFT EN ROM 

BUFFER 64K POUR IMPRIMANTE PARALLELE AVEC CARTE P2 MID 

SYNTHETISEUR DE SONS 

SC 

SC 

CARTE ANALOGIQUE/DIGITALE 

PERMET DE JOUER DE LA MUSIQUE SUR 16 CANAUX 

INTERFACE PARALLELE IMPRIMANTE 

INTERFACE PARALLELE ET SERIE COMBINEES + BUFFER + GRAPHIOUES 

CARTE GRAPHIQUE POUR IMPRIMANTE 

SYNTHETISEUR DE PAROLE 

CHARGE TRES RAPIDEMENT LES FICHIERS 

FONCTIONS CLAVIER POUR 11 + 

PROGRAMMATEUR D'EPROM 

64K SUPPLEMENTAIRE I DOUBLE HAUTE RES. 

INTERFACE SERIE NORME V24 RS232 C 

FAUX MULTITACHES + EQUIVALENT DE 64 APPLES 

SOURIS COMPRISE 

ACCELERE LA VITESSE DE TRA1TEMENT 

CARTE GRAPHIQUE 

CARTE GRAPHIQUE 

HORLOGE 

HORLOGE t LOGICIEL 

BROSSE A DENT ELECTRONIQUE 

CARTE DE COPIE 

Z80 + SOFTS CP/M 




En Angleterre, il existe une extension. Eh oui, il en existe une. 

Une quoi ? Une extension. Oil ? En Angleterre. 

Bon, je vais vous dire de quoi est-ce qu'il s'agit: de I'extension fabriquee en Angleterre. Eh bien oui, c'est une extension CP/M Z80 

anglaise. Pour le quoi ? Pour le lie. Si vous allez en Angleterre acheter une extension pour le lie, ca vous coutera 95 livres plus la 

traversee 90 francs tanf famille non-extensible plus et encore le train pour aller chez CIRTECH, qui est une compagnie anglaise On 

peut aussi trouver des disques durs (pas en Angleterre, mais comme ce n'est pas un produit extensible, allez done savoir . ) pour le 

lie mais a vous de les trouver, mais n'allez pas en Angleterre ! 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 420 FRANCS POUR 52 NUMEROS AU UEU DE 
52 x 10 =520 FRANCS. ABONNEMENT POUR 6 MOIS : 220 FRANCS. Pour I'etranger: + 80 F. pour 1 AN 

+ 40 F. pour 6 MOIS. 
NOM: MATERIEL UTILISE : 

PRENOM : CONSOLE : 

ADRESSE: PERIPHERIES : 

REGLEMENT JOINT : □ CHEQUE DCCP 



C'est nouveau, $a vient de sortir 



EDEN, 

PARADIS DES ANGLOPHILES 



Pour ceux qui parlont et H* 
sent I'anglals comme moi le 
laponien de suis bilingue La- 
ponien-Francais. ca peut ser- 
vif). vous pouvez allet laire 
un tour au rayon tibrairie 
d'Eden. le magasin donl 
nous avons deja eu I'occa- 
sion de vous parler Vous 
pourrez trouver. outre les fa- 
meux 'Osborne-McGraw- 

Hill". veritabtes encyclope- 
dies des processeurs. toute 
la collection "Granada". Cet 
editeur est un peu 1'equtva- 
lent de PSI chez nous Tous 
les micros sont represents 
(mis a part les Thomson, 
bien entendu). et les livres 
sont ecrits avec la rigueur et 
I'humour qui regnent outre- 
Manche. Et comme les ven- 
deurs n'ont fien a faire de 
leurs journees (le magasin 



s'obstlne a etre desespere- 
ment vide), ils s'empressent 
pour vous sen/if des que 
vous pointez le bout de voire 
nez. C'est gentil. ils pour- 
raient tres bien contmuer ieur 
partie de Donjons et dragons. 




LES LINGOTS DE LA 
MICRO 



II y a de lor dans les poubel- 
les de la micro-informatique. 
C'est ce qua realise Yves 
Gehanne. PDG de la societe 
Valmet a Falaise dans le Cal- 
vados. II recupere chaque 
jour deux semi-remorques 
pleins d'ordinateurs mis au 
rencart. Et laffaire est parti- 
culierement juteuse. Pour 
chaque tonne qui enlre dans 
1'entfeprise. c'est 20 gram- 
mes d'or qui tombenl dans 
I'escarcelle de la societe. Ca 
peut vous paraitre derisoire. 
mais c'est I'equivaleni de la 
teneur en or d'une mine tra- 
ditionnelle. Le principal pro- 
bleme etait de mettre au 
point des techniques chimi- 
ques et mecaniques de sepa- 
ration des divers elements. 
Yves Gehanne a reussi, la ou 
pas mal de recuperateur 




s'etaient cassees les dents 
(en or. bien sur}. Moralite. a 
elle seule I'entreprise Valmet 
represente 75% du marche 
frangais de la recuperation. 
Pour vous donner une idee, 
voici les resultats de cette 
casse systematique depuis 
quelques mois: 400 kgs d'or. 
3000 kgs d'argent. 20 kgs de 
palladium. 10 kgs de platine. 
Ca vaut tout de meme le 
coup de se decarcasser. Que 
ceci ne soit pas une raison 
pour passer votre micro a la 
moulinette! 



ORIC DESSINE ENFIN ! 



Loriciels vient d'editer un lo- 
giciel de conception graphi- 
que sur One. Le nom est re- 
butant, mais le produit tres 
Don: c'est une copie de Koala 
Pad sans la tablerte graphi- 
que. Un menu vous est pre- 
sents sous forme graphique: 
de petits carres contiennenl 
des symboles tels que lignes. 
formes, couleurs, caracte- 
res... II suffit de deplacer le 
curseur a ['aide des touches 
ftechees du clavier pour 
I'amener sur la case choisie. 
puis dappuyer sur escape 
pour arriver sur la page gra- 
phique. La, vous pouvez tirer 
des traits, faire des cercles 
fronds), coiorier des parlies 
d'ecrans, rempltr des formes 
en mode normal ou en mode 
inverse... Un outil tres puis- 
sant, attendu depuis long- 
temps. On parle mSme d'une 



i&icfete. 



'm&u: 




version sur disquetle 
min pour bientot... 



BABACOOL FRAPPE ENCORE ! 



Llamasoft vient d'editer un 
soft nomme "Psychedelia". 
Ce logiciel tourne sur CBM 
64. VIC 20. Atari, Spectrum 
et Amstrad. II semble d6die a 
ceux qui regrettent le doux 
temps des paves de Mai 68. 
Les slogans publicrtaires sont 
explicites: "Vous ne pouvez 
pas perdre ni gagner. seule- 
menl vous amuser. Pas de 
frustration, pas de tuerie. 
seulement du plaisir. Bran- 
chez-vous sur la musique. 
branchez-vous sur les tene- 
bres, branchez-vous*. Le pro- 
grammeur de cet "ultimate 
trip" est Jeff Minter. auteur 
notamment de "La revanche 
des chameaux mutants" et 
des "Moutons dans lespace*. 
qui sont des references en 
matiere de folie. II ne s'agil 
pas d'un jeu. mais dun syn- 



thetiseur d'images. coupl6 a 
un generateur sonore. II vous 
suffit de d6terminer une 
forme coloree et un rythme 
ou un son. et le programme 
improvisera allegrement sur 
ces bases. creant des 
formes, des animations, des 
sequences de couleurs et 
des effets sonores. II ne vous 
reste plus qu'a vous asseoir 
et a contempler. Sous le cla- 
vier, la plage. 




PARTIAL ET INJUSTE 



Notre confrere anglais. Prac- 
tical Computing, vient de 
laire un banc d'essai des 100 
ordinaleurs qui se vendent le 
plus en Angleterre. Face a 
une pholo. un texte elabore. 
et sur une petite colonne, le 
pour et le contre en deux 
mots. 

Comme nous sommes des 
chiens. nous allons vous 
donner les appreciations 
"contre* pour les micros que 
Ton trouve en France. En ou- 
blianl bien evidemment les 
"pour"! Ils ne sont pas ten- 
dres, les collegues... 

AMSTRAD: Rien. 
APPLE lie: 6 bits 
APPLE He: Cher. Vieux. 
AQUARIUS: RAM et basic It- 
mites, cher a elendre. 
ATARI 600XL: Nest plus fa- 
brique. 

ATARI 800XL: Basic limite. 
Peripheriques incompatibles. 
ATMOS: Pas assez de logi- 
ciels. 

CASIO PB 700: Pas de RS 
232. Moins de logiciels que 
Sharp. 

COMMODORE 64: Basic 
atroce. idem pour les ma- 
nuals et docs. 

ENTERPRISE: N'existe pas 
encore. 
IBM PC: IBM. 




MACINTOSH: Peu de capa- 
city de sauvegarde. 
MEMOTECH: Basic peu cou- 
rant. 

MSX: Fabrication etriqu6e. 
Pas de logiciels. Prix. 
SHARP PC 1500: Ecran trop 
petit. 

SINCLAIR QL: Microdrives. 
Basic trop lent. 

SINCLAIR ZX 81: Pas de 
couleurs ni de sons, clavier 
atroce. 

SPECTRUM:Fabrication dou- 
teuse. Pas pour un usage 
professionnel. 

SPECTRUM PLUS: clavier 
Serigraphie atroce. Prix. 

TANDY COLOR:Sons et gra- 

phiques limites. Clavier. 



THE GREAT FUN 
SHOW 



Si vous etes nul en geogra- 
phie. n'achetez suriout pas 
"Carte de France" sur T07 de 
Vifi Nathan, cette cassette 
risquerait de compromettre a 
tout jamais vos chances de 
devenir malgre tout un grand 
geographe. 

Sous le fallacieux pretexte 
que ce logiciel se rapporte a 
notre chere France, vous 
aurez droit durant le charge- 
ment a une superbe version 
de notre hymne national (la 
Marseillaise, pas "The Great 
Break Dance And Smurf 
Show") revisite par The Sha- 
dows, groupe folklorique dont 
les plus anciens d'entre nous 



fin du chargement". Ce 
n'etait pas lini. Au bout d'un 
laps de temps certain, un 
menu s'afliche a I'ecran. 
comportant plusieurs options 
parmi lesquelles un jeu. 
N'hesitez pas. choisissez le 
jeu. Et sous vos yeux effares 
s'inscrit la phrase:"Je cher- 
che le jeu". Et c'est reparti 
pour un tour. 

Brel. vous avez pris un cafe. 
un bain, la tangente et les 
choses en main, le jeu a eu 
le temps de charger, vous 
pouvez revenir. Et la, oh stu- 
peur, vous pouvez enfin jouer 
au jeu formidable des villes. 
des montagnes. et des fleu- 




se souviendront certaine- 
ment. Dans le meme temps. 
une accorte donzelle 

(dapres la voix) vous pre- 
viendra aimablement que 
vous venez d'acheter une 
cassette de chez Vili Nathan, 
que le chargement durera un 
certain temps, que la tempe- 
rature au sol est de 18 
degres et que veuillez etein- 
dre vos cigarettes s'il vous 
plait. 

Pref, longtemps apres. le 
chargement esl enfin ter- 
ming. Vous avez alors droit a 
un ecran de presentation su- 
perbe representant la 
France. Puis une phrase 
s'inscrit: "Patientez durant la 



ves. Le principe? il est sim- 
ple: lorsqu'un nom de ville 
s'alfiche. vous devez pointer 
lendroit approximatif ou se 
situe cette ville sur la carte. 
Et c'est la que reside reelle- 
ment I'interet du jeu: reussir 
a laire marcher le crayon op- 
tique du premier coup. 
Abregeons. Par acquit de 
conscience, nous lavons fait 
tester par des enfants. Que 
croyez-vous qu'il arriva? lis 
nous jetterent la cassette a la 
ligure, oui. Et se rabattirent 
gaiement vers Lode Runner, 
arguant du (ait qu'il vaut 
mieux un bon prof de logique 
qu'un mauvais de geo... 



PIRATEURS, 

ALLEZ AU CONGRES 

ANTI-PIRATEURS 



Le SECURICOM 85 se tiendra 
a Cannes (au palais des festi- 
vity ou des feslivals, au 
choix) du 6 au 8 Mars 1985. 
Ouest-ce que le SECURICOM 
? Bonne question ! C'est le 
troisieme congres mondial de 
la protection et de la securite 
informatique et des communi- 



cations. Tout et le reste sera 
propose contre les internes qui 
osent samuser avec les pro- 
tections et la propriety d'au- 
trui. 

Alors... Pirateurs si vous ne 
voulez pas passer pour des 
bananes, allez-y. 



ANKHde 

BEYOND SOFTWARE 



Ce soil est sans doute le lo- 
giciel le plus deroulant ima- 
gine au cours de la decennie 
ecoulee. Toute sa conception 
est centree autour d'un 
meme principe: rester logi- 
que au niveau fondamental; 
paraftre illogique ou meme 
incoherent lors de ['utilisa- 
tion. 

Vous manipulez un "esprit 
sondeur" au sein de I'univers 
d'Ankh. Ce monde est subdi- 
vise en soixante quatre 
pieces. Vous devez parcourir 
chacune d'elles afin d'y de- 
couvrir leurs tresors ou leurs 
pieges. Vous ne disposez 
que d'un vaisseau transpor- 
tant votre esprit. A chaque 
instant, tous vos sens sont 
sollicites par un environne- 
ment riche en stimuli multi- 
ples. Chaque decouverte 
augmente votre energie ex- 
ploratrice. Chaque contact 
avec lennemi ou avec I'in- 
connu vous epuise. 

Vous vous balladez au ha- 
sard? J'espere que votre 
bonne 6toile est vraiment 
bonne. Sinon, vous risquez 
d'y rester jusqu'a la fin de 
vos jours. 

Vous tentez de reT!6chir 
piece par piece? Ce n'est 
pas encore la solution! Eh 
oui! Tout les elements de ce 
monde sont connexes. L'ac- 
tion effectuee dans la salle 
num6ro six a peut-6tre une 
influence sur la salle dix- 
neuf. A moins que le change- 
ment n'ait lieu dans la cin- 
quante deux? 

Pas d'affolement! Restez 
calme et ouvrez grand vos 
yeux et vos oreilles. Toutes 
les images, tous les sons 
sont importants. Essentiels 
meme! Un exemple s'impose. 




I! existe un ensemble de dix 
salles contigues. Un indice 
visuel vous permet de deter- 
miner dans quel ordre vous 
devez agir pour recuperer les 
dix objets. Tant que cet in- 
dice vous echappe. vous ta- 
perez au petit bonheur a 
toutes les portes. Le hasard 
en ouvrira certaines. 

REFLEXION! Voila le mot 
magique qui. en compagnie 
de PATIENCE, vous permet- 
tra d'aboutir et de valncre la 
subtilite sadique des crea- 
teurs d'Ankh. Les passages 
secrets livreront Ieur formule 
grace a la tenacite et la pa- 
tience, pas avec la force et la 
brutalite! 

Pas de my st 6 re! Si vous 
aimez le Rubik's cube, si 
vous appreciez le To Dong, 
ce soft vous est destine. Si 
vous preterez les Space In- 
vaders et autres Donkey 
Kong, allez chercher ailleurs! 
Moi, j'aime et j'y retourne! 

Le CERVEAU 



MARECHAL 
NOUS VOILA ! ^ 



Les etats-majors frangais se 
morfondaient avec leurs gros 
systemes informatiques. Le 
pere Noel ne les a pas ou- 
blies. II a commande a la so- 
ciete americaine GRID quel- 
ques exemplaires d'un micro- 
ordinateur baptist 

COMPASS, qui sera un outil 
d'aide a la decision. Cette 
petite merveille d'une valeur 
de 37.500 francs fait deja les 
delices de la Maison Blan- 
che, du FBI et de I'armee 
americaine. C'est 6galement 
le premier micro qui a fait le 
tour de la Terre a bord de la 
navette spatiale. 
Pour les militaires, on pr6voit 
une version blindee. Esl-ce a 
dire que nos generaux ne 
sont pas soigneux? Non! Le 
blindage evite les emissions 
d'ondes electriques qui peu- 
vent oire captees par les pi- 
rates de tout poil qui rodent 
autour des bases. Vous 
savez done desormais 
comment eviter le piratage: 
engagez-vous et program- 
mez dans un char d'assaut. 




LES BEATLES COTES A L' ARGUS! 

Deux d'entre eux, du moins: Beatles aurait survellle de 
il s'agit de Paul McCartney et pres le scenario du jeu. Lucy 
de Ringo Starr. Le premier a in the sky aurait meme ra- 



ise r6cemment un film sur 
sa vie intitule "Give my re- 
gards to Broadway Street", 
avec lui-meme, sa femme, le 
second et la femme du se- 
cond, Barbara Bach. Ce film 
donnera lieu des Janvier a 
une adaptation en logiciel do 
la pari d'Argus, qui vient 
d'acqu6rir les droits mon- 
diaux du film. Les premieres 
versions seront pour Commo- 
dore 64 et Atari, el ulterioure- 
ment pour Spectrum. L'ox- 



joute quelques diamants par- 
ci par-la. 




C'est nouveau, pa went de sortir 



DEUX LOGICIELS POUR EXELVISION 

Tout arrive, meme Exelvision 
a droit a des nouveatites 
Electron, magasin pansien et 
vendeur par correspondance 
qui a deja seme one jolie zi- 
zanie dans les prix des ma- 
chines, se lance dans rendi- 
tion de logiciels et commence 
par deux titres pour I'EXL 
100 Jolies boites el plies \a- 





queues pour un programme 
de Poker et une gestion de fi- 
chiers. Pas vraiment tres ori- 
ginal, mais faute de 

g rives 

Pour les prix et ladresse des 
revendeurs. reportez-vous a 
vos catalogues de publicite 
habiluels. 



CET HOMME VA PARLER PENDANT 
70 HEURES POUR MOINS D'UN 
FRANCS CINQUANTE DE L'HEURE 



Du 16 au 19 fevrier 1985. 
pour 100 francs vous pourrez 
rentrez dans le Palais des 
congres a Paris ou se derou- 
lera !e lOeme salon Micro- 
expo, vous serez ainsi au 
courant de ' pas mal de 
choses en allant interroger 
les 200 exposants de togi- 
ciels et de materiels parques 
dans 7000 metres carres de 
stands. Et vous pourrez. tou- 
jours pour la meme somme. y 
rentrer tous les jours et as- 
sister a J'oeil aux soixante-dix 
heures de conference qui se- 
ront donnees sur des sujets 
aussi divers que MSX. Te*l§- 
tel. IBM, Pascal. Basic ou la 
reproduction des hippocam- 
pes en milieu urbain. 
Pour les conferences, nous 



ne sommes pas vraiment cer- 
tains que c'est le gros mon- 
sieur de la photo qui animera 
toutes les reunions; si c'est 
le cas. il va perdre pas mal 
de kilos et il sera probable- 
ment tres content, surtout sa 
femme! 

Tous les exposants de Micro- 
expo sont des mauvais! 
Arrrrrette, I'HHHHebdo y est 
aussi, et sur un stand 
enorme! 

Ah. bon.... Alors tous les ex- 
posants de Micro-Expo sont 
des bons! 

Ca y est. ils sont pas encore 
la et ils commencent deja a 
semer la zizanie! 
Mais non, mais non, nous 
serons bien sages, promis! 




VOTRE MICRO VOUS APPORTE-T-IL VOS 
PANTOUFLES, QUAND VOUS RENTREZ? 



Si non, il vous faut combler 
cette lacune au plus vile. S'il 
ne vous reconnalt pas quand 
vous arrivez a la maison, 
dotez-le d'un oeil eiectroni- 
que. C'est possible pour en- 
viron 3000 francs, grace a 
Micron Technology qui vient 
de mettre au point cette ca- 
mera video, dotee de multi- 
ples possibililes: scan per- 
manent, arret sur image, 
stockage d'image, comparai- 
son de differentes images 
Cette petite merveille existe 
en version Commodore 64. 
Apple II. I1BM PC. TRS-80 et 
Macintosh, el toutes les ma- 
chines equipees d'une prise 
RS 232. La resolution est de 
256x128 ou de 128x64, et il 
est possible de saisir jusqu'a 
1 5 images par seconde. 
Ajoutez un synthetiseur vocal 
a voire appareil. et vous 
pourrez ainsi fillrer vos visi- 
teurs: 



10 INPUT VISITEURS 
20 IF VISITEURS =■ TATIE 
GERMAINE" THEN SAY 'DE- 
SOLE. JE SUIS ABSENT 
POUR L'INSTANT..." 




CENT MILLE MICROS 



Y'a pas a dire, quand I'Etat 
se decide a offrir du materiel 
a nos enfants a nous pour 
leurs etudes, ca assure un 
maximum, N'allez pas croire 
que vos impdts servent a ar- 
roser les cousins et les co- 
pains, c'est faux! La preuve, 
pour acheter les micros quits 
veulent, la planche a billets 
doit choper le tournis pour 
suivre le mouvement. 

Un peu d'histoire ne nous 
(era pas de mal. En 1978, 
nos gouvernants d'alors se 
rendirent compte du leger (?) 
retard pris dans le domaine 
commun de I'education et de 
I'informatique. Un (bon) plan 
se dessina qui amena a la 
creation du projet '10.000 
micros". Cette operation vi- 
sait a equiper une petite pro- 
portion des etablissements 
publics de machines "peda- 
gogiques" huit bits. Des LX 
529 de Logabax, Sil'z 8 de 
Leanord et Micral 80 22-G de 
Bull furent ainsi commandes, 
achetes, livres, payes. 

Courant 1 983. nos gouver- 
nants d'alors se rendirent 
compte du grave (?) retard 
pris dans (e domaine de I'in- 
formatique et de I'education 
reunis. Un nouveau (bon) 
plan fut mis sur pied qui 
donna naissance au projet 
"100.000 micros". Le but 
avoue de cette operation est 
d'equiper tous les lycees et 
LEP (lycees d'enseignement 
professionnel) d'ici fin 86. les 
colleges en 87 et en 88 les 
ecoles primaires. Objectif de 
cette grandiose manoeuvre: 
1988 sera I'annee du un pour 
cent exceptionnel! Effecti- 
vement. chaque groupe de 
cent eleves^de France ou de 
Navarre devra disposer d'une 
machine a cette dale. 

Ouelles machines ont ete 
commandees pour ce projet 
"100000 micros"? Cinq cons- 
tructeurs bien de chez nous 
ont ete selectionnes parmi la 
quarantaine ayant repondu a 
I'appel d'offres. Les micros 
selectionnes ont tous un cer- 



tain nombre de points 
communs Ce sont des 
micros professionnels 16 bits 
pouvanl etre connectes en 
reseau, pouvant disposer de 
memoire de masse, d'ecrans 
couleurs.de liaisons tele- 
com... Bret des machines de 
course quoi! Les cinq modu- 
les seleclionnes sont le Per- 
sonna 1600 de Logabax (om- 
nipresent dans cette 
histoire), le Goupil 3 de SMT 
(micro vieux de trois ans et 
toujours aussi peu au point), 
le Sil'z 16 de Leanord. le Mi- 
cral 90-20 de Bull (mangeur 
de disquettes repute) et le 
Max 20 E de Matra Datasys- 
teme. 

Pendant I'annee 1989, nos 
gouvernants d'alors se rendi- 
rent compte du dramatique 
(?) retard pris dans le do- 
maine commun de I'informati- 
que et de I'education reunis. 
Un nouveau (dementiel) plan 
germa qui enfanta le projet 
genial "1 .000.000 micros". 
ETC, ETC, ETC. 

Et maintenant, question! Qui 
est-ce qui va ecrire les logi- 
ciels... Euh, pardon! Les di- 
dacticiels destines a ces cent 
mille micros? Peut-etre bien 
vous! Alors au boulot... 
Ladresse est toujours la 
meme. 

P'tit TCHEUR 




DEJA 13 
ILS'ARRETE QUAND? 



Scott Adams (TM). concep- 
teur de 12 jeux <§) stupides, 
mal fails et ininteressants. 
ajoute un ireizieme titre a sa 
collection d'inepties: "Le sor- 
cier du chateau de Claymor- 
gue" (registered trade mark). 
Le scenario iQ est exacte- 
ment le meme que les prece- 
dents (TM), le vocabulaire 
aussi restreint et I'analyse de 
syntaxe Ob toujours aussi 
in^xistante. Mais nous vous 
rassurons: normalement. le 
chiffre 13 (copyright) devrait 
lui porter malheur (m). Alten- 
tion, cet article est depose, et 
vous seriez gentil de ne pas 
le recopier car j'ai mis beau- 
coup de temps a lecrire. 




COLECO: TOUT EST FAUX I 



Colecovision, labricant de la 
console Adam, se retire du 
marche anglais. Les logiciels 
pour I'Adam seront toujours 
en vente pendant quelque 
temps, mais ce marche ten- 
drait a dlsparailre aussi rapi- 
dement. Le dtrecteur du mar- 
keting dement toulefois ces 
affirmations. Un grand maga- 
sin a Londres aurait recu le 
reliqual des stocks, soil 
40000 machines. Naturelle- 
menl, le direcleur de la so- 
ciety dement vigoureusemenl 
ce chilfre. La recente baisse 
spectaculaire du prix de la 
console aux Oats-urns mene 
a penser que sa distribution 
pourrait etre stoppee la-bas 



aussi. Bien enlendu, ces ru- 
mours sont fermement de- 
menties. I'Adam, depuis sa 
sortie, est passe par de nom- 




breux problemes: livraisons 
aleatoires, problemes de 
chargement avec la cassette 
a enregislrement numeri- 
que ... Mais a prion, tout cela 
est laux. Cela ne tardera pas 
a etre dementi. 



GA GNEZ 80. 000. 000. 000. 000. 000 
DE FRANCS (ANCIENS) 
GRACE A HEBDOGICIEL 



Comment (aire? C'est tres 
simple, Passez une annonce 
dans n'importe quel journal 
informatique. et attendez. 
Quelques temps plus tard. 
vous aurez la surprise de re- 
cevoir une lettre comme celle 
qui est en illustration. Elle 
vous propose de gagner la 
somme de 160,000 francs. 
soit 16 millions anciens. pour 
un debours de 20 francs. 
C'est comme au Loto, c'est 
facile et pas cher. Mais il y a 
peu de chances pour que ca 
marche. 

Le principe n'est pas nou- 
veau: vous recevez cette let- 
tre, au dos de laquelle sont 
portes trois noms. Vous en- 
voyez 20 francs au premier 
de la liste, vous effacez son 
nom et vous rajoutez le votre 
en derniere position. Puis 
vous faites 20 photocopies, 
vous I'envoyez a 20 person- 
nes. et vous attendez le pac- 
tole... Vous n'y croyez pas? 



Vous pouvez verifier en tete- 
phonant a John Nelson (!) 
dans le Tennessee. 
Alors. tout va bien? 
Non. car la chaine se brise 
tres rapidement. II su ff it 
qu'une personne jette le pa- 
pier et les calculs sont faus- 
ses. Si le principe marchait, 
la planete entiere serait deja 
ricne a milliards. Les ricbes- 
ses naturelles du monde en- 
tier ne suftiraient pas... 
Seules les quelques person- 
nes qui lancent la chaine ont 
quelques chances de gagner 
un tant soit peu d'argent sur 
le dos des credules. Mais 
I'HHHHebdo a trouve mieux: 
vous nous envoyez tous 100 
francs, et nous partons en 
vacances aux Bahamas. Pas 
besoin de faire des photoco- 
pies, de trouver des victimes, 
d'acheter des timbres... Vous 
rendez-vous compte du 
temps que vous allez gagner 
grace a nous? 

1 1HELKME1 I«HE SrSTUU lirijni:i(..[ 



copl« ou photocopl.. 



E InttOVIS IK«ST[S5Ent«T E 



I.B.M. iens I. B .M. isez ! 



Le deuxieme Forum Europeen 
IBM PC se tiendra les 12, 13 
el 14 fevrier 1985 a Paris, au 
Palais des Congres, Comme 
son nom I'indique. seuls les 
materiels. logiciels. produits el 
services destines a I'lBM PC 
sont concernes par cette expo- 
sition. Malgre lout, si vous 
possedez un compatible PC 
cette manilestation vous inte- 
ressera aussi. 

L'enrichissement exponeniiel 
de I'environnement du PC |us- 
tilie pleinemenl I'organisation 
de cette expo mais elle 
s adressera sans doute a un 
milieu professionnel plutoi 
qua des particuliers. En tout 
etat de cause, si vous posse- 
dez un PC ou un compatible 
precipitez-vous la-bas. vous 
Irouverez ce qu il vous man 
quail encore. 




SINCLAIR-LA-BIDOUILLE 

Sinclair est actuellement en CMOS, done pourra fonction- 
frain de travailler sur un por- ner sur piles. 
table qui sorlira a la mi-85. II Allez. s'il a un vrai clavier, on 
sera compatible avec lout les ladopte. 
logiciels existant pour Spec- 
trum, done il comportera une 
ROM de Spectrum. II aura un 
ecran plat, done beneliciera 
des recherches elfocluees 
par Sinclair dans ce do- 
maine. II coutera moms de 
4000 Francs, done beneli- 
ciera des bas prix Sinclair. II 
ulilisera la technologic 





VENDS lactam do carles ma- 
gnetiques pour HP 41C parlail 
eiat, pcu servl : 1000 F. Olivier 
SACY Tel: 9-14 16 31. 



DRAGON 

VENDS DRAGON 32 Peiitel I 
cables t rtombreux program- 
mes (Forth. Donkey, etc..) (Va- 
teur + 3000 F.) + manuel (■ 
housse: 2500 F, S. LLORENTE 
13 rue de Montchauvet 78200 
MANTES LA VILLE Tel: (9) 092 
75 64. 

VENDS DRAGON 32 * tele MB 
+ naettes de jeu + conneclion 
TV Perilel Secam / prise an- 
tenne t- logiciels: cartouche 
ROM HI- RES permettant le 
pixage lextes I graphismes, 
creation de sprites etc.. + 1 
cartouche ROM + 3 jeux sur K7 
dont Moon Patrol. Prix 3000 ou 
2700 F. sans tele. Tel: (32) 40 
21 37 (apres 18H). 

VENDS DRAGON 32 + TV MB 
portable: 3500 F. F. TELLIER 7 
rue Foch 62164 AMBLETEUSE. 

VENDS DRAGON 32 + peritel 
+ UHF + manettes + cartou- 
che: 2500 F. VENDS 120 logi- 
ciels 50 F. piece ou VENDS 
DRAGON + 120 logiciels pour 
4000 F. Marco CUCCHI 33 rue 
Aubepine 94320 THIAIS. 

VENDS DRAGON 32 + Peritel 
+ 3 Irvres: 2500 F. Magneto 
Philips: 350 F. F. CHAN PIU 
1 1 1 avenue B. Buyer 69005 
LYON Tel: 836 12 43. 

HP 41 

VENDS HP 71 B : 4000 F. J.M. 
KERIBIN 5 place Armand Carrel 
75019 PARIS Tel: 208 99 21. 



VENDS HP 41CV + lecteur de 
cartes t module X function + 
module HPO IL i module Math 
* accus. t Chargeur + 200 
cartes + docs: 5800 F. Ste- 
phane BARTIAL Tel: (86) 66 40 
77. 

HECTOR 

VENDS HECTOR 2 HR i ma- 
nette de jeu 4 K7 basic + nom- 
breux programmes et K7 + 7 
livres Basic (valeur 6000 F.) 
Vendu 4000 F. Dominique ME- 
RESSE 14 rue du Rivage - Nl- 
VELLE 59230 par ST AMAND 
LES EAUX Tel: (27) 48 71 84 
(apres 18H). 

MPFII 

VENDS MPFII 64K compatible 
Apple + cable antenne et Peri- 
tel. Documentations et program- 
mes : 1500 F. Alain GUESDAN 
Tel: 300 64 45 (le soir). 

VENDS MPF II. 64 RAM Basic 
compatible APPLE + ecran + 
programmes + cables + ma- 
nueis: 2800 F. Stephane 
HENRY Tel: (3) 991 20 33. 

VENDS MPF II 64K + moniteur 
Zenith Vert + joystick et K7 jeux 
+ docs (valeurs 4500 F.) Vendu 
2500 F. Thierry LUSTRENANT 
9 rue de Saint Malo 51000 
CHALONS SUR MARNE Tel: 
(26) 21 01 52 (apres 17 H). 

VENDS MPF II Peritel Moniteur 
SECAM + lecteur et Interface 
disk. + inter. Mu'*i Imprimante + 
programmes + cables + notices 
+ Irvres. Le tout 5200 F. Andre 
LE GRAND 1 rue Claude BER- 
NARD 45100 ORLEANS Tel: 
(38) 63 56 50. 

VENDS MPF II Secam PERITEL 
+ UHF: 2300 F. Henri MOU- 
LINS 1 rue du Port feu Hugon 
A2 37000 TOURS Tel: (47) 66 
60 03. 



COMMODORE 

VENDS VIC 20 (pal/secam) + 
modulateur MB 4- cours d'aulo- 
lormation ou basic (avec 2 K7) + 
exl I6K 4 8K + 3K 4- carte mere 
(pour ext 32K> + SUPER EX- 
PANDER + PROGRAMMER'AID 
+ HESMON + 6 livres + nom- 
breux programmes : 350OF (va- 
lour 7000 francs). 
CHARTON Denis. 354 rue du 
Pere Hilanon 54700 PONT-A- 
MOUSSON. 

VENDS VIC 20 + Extension VI- 
XEN (I6K. 8K. 3K dans un meme 
boilier) 4- Magneto + K7 avec 

nbx programmes, le tout en tres 
bon etat Cede au prix de 
1500 francs. Port gratuit sur 
Strasbourg et environs. 
SCHULLER Fabrice. 5 rue St- 
Bruno, 67200 STRASBOURG. 

VENDS VIC 20 + Magneto K7 
(1000 F) 4- Moniteur polychrome 
pal/secam (2500 F) -f 5 cartou- 
ches de jeu (1000 F) + K7 de 
gestion de budget (50 F) ou le 
tout pour 4254,25 F (etonnant. 
non ?). 
Tel. (35) 83.08.28 apres 17 h, 

VENDS Commodore VIC 20 4- 
Magneto cassettes + progs. 

Tel. (21)62.90.25. 

CHERCHE logiciel HORDAC 
pourCBM 64 ou tous renseigne- 
ments les concernant. 
J. WINIGER 134 bd Berthier 
75017 PARIS. 

ECHANGE Detecteur de me- 
taux 4- casque d'ecoute en bon 
etat contre CBM 64 ou ORIC ou 
SPECTRUM ou IMP. Z710. 
GODINHO Luis 145 rue de la Re- 
publique 39400 MOREZ. 

VENDS CBM VIC 20 + Magneto 
cassette 4- auto-formation Ba- 
sic + nbrx jeux d'action + livres. 
2500 francs a debattre. 
(35) 93,85.07 a partir de 19 h. 

VENDS VIC 204- 16K+ Magneto 
cassette + auto-formation 4- 2 
cartouches de jeux + joystick 4- 
moniteur vert. 2500 francs. 
Eric GUINARD !2 rue du Champs 
le Golf 29210 MORLAIX. 



VENDS VIC 20 Secam 4- peritel 
+ magneto 4- nbrx programmes 
sur cassette + joystick 
2700 francs 

Super expender + Vixen + cart. 
Radar rat race 2800 francs 
C. CUTULLIC 13 rue du Morbihan 
44560 PAIMBCEUF (40) 
275250 

VENDS CBM VIC 20 Ju.llet 84 4 
8K4- Jos!ick4auto-formalion + 
Starbattle, Sargon chess, alien, 
protector, scramble, cosmic 4- 
divers livres, valeur totale 
4800 Irancs Vendu 2000 francs 
Vincent EDMOND 2 rue du 
Genie 57558 MONTIGNY-LES- 
METZ 750.40.49 apres 

19heures. 

VENDS VIC 20 Decembre 83 + 
jeux: 1300 francs. Vends ZAX- 
XON, CHOPUFTER. FLIGHT 
PATH SIMULATOR, HIT STOP... 
200 jeux : 30 francs piece. 
Vends Video-pac Philips + 4 
cassettes: 1000 francs. 
Eric MILLER Chemin de Nobile 
42153 RIORGES. (77) 71.72.30. 

VENDS VIC 20 Pal sous garantie 
4- peritel 4- datassette 4- super 
expender 4- auto-formation 4- 
joystick 4- livres 4- jeux : 
2000 francs le tout. 
Stephane BEAUVAIS 075.47.46. 

CHERCHE Possesseur de COM 
64 pour echanger ou acheter 

Programmes de Jeux ou Utilitai- 
res. David LEFEU 1 route de St 
Romain 76170 LILLEBONNE. 
Tel:(35) 38 08 25 

VENDS VIC 20 + magneto + 

joystick / autoformation Basic + 
extension 8Ko + 1 livre Pro- 
gramme + K7 de jeux etc... : 
3000 F. D. ROCCIO 149 rue D. 
Casanova 93300 AUBERVIL- 
LERS. Tel: 352 70 49. 

TEXAS 

ACHETE pour Tl 99/4A module 
basic etendu. Tel: 854 91 41. 

ACHETE pour Tl 99/4A module 
adventure 200 F. Monsieur 
GAULUPEAU Tel: 257 89 15 (le 
soir). 



VENDS pour Tl-99 mmi-memory 
+ Ime 'I'assembleur avec la 
mim-memoire" 4000 francs 

beiges Extended Basic 4- livre 
d'emploi 3000 FB Jeu beige 
d'echecs en francais 1000 FB 
Module YATHZEE 500 FB 
David DUCANNE 12 rue Abesses 
5864 NIL-ST-VINCENT Belgi- 
que Tel. 010/65 46.28. 

VENDS Tl-99 4A Perilel 4- inter- 
face Secam 4- magneto + cor- 
don + Parsec + Munchman 4- K7 
'Le Basic par soi-merne" 4- plus 
de 70 programmes K7 + nom- 
breux listings 4- livre "102 Pro- 
grammes pour Tl" Valeur larif 
Nov. 84 : 2700 francs Prix 
2000 francs le tout. MABILLOT 
Ludovic (7)224 83.74. 

VENDS Tl-99 tres bon etat 4- ali- 
mentation 4- peritel 4- magneto 
4- rallonges 4- jack 4- manuel 4- 
manettes dejeu + Munch Man4- 
100 Programmes 4- "Boite a outil 
du Tl" 4- nombreuses revues : 
Prix 1910 francs a debattre 
(1650francs minimum). (NDC: 
Et le maximum ! C'est pas indi- 
que !). En cadeau (NDC : Tout de 
meme ! Pour le meme prix ? Al- 
lez done savoir...) : jeu video Ha- 
nimex. manettes incorporees + 
Cartouches 10jeux 4- cartouche 
"Course", branchement toutes 
teles. Valeur 490 francs : gratuit 
a tout acheteur. 
Frederic, tel. (20) 57.20.10. 

VENDS URGENT Tl-99 4A 4- Ba- 
sic etendu 4- manettes 4- Tl IN- 
VADERS 4- K7 4- magneto K7 + 
cordon 4- nombreuses doc : le 
tout 1800 francs. Tel. 

(80) 66.80.29 le soir. 

RECHERCHE pourTI-99 module 
extended Basic 4- manuel. si 
poss. en Belgique. faire oflre a : 
Th. CRESPEIGNE 14 rue Petrias 
6290 NALINNES Belgique. 

ECHANGERAIS Module Othello 
neuf contre autre module egale- 
ment neuf. Serais interess6 par 
le module Extended Basic avec 
manuel francais. Faire proposi- 
tions a Olivier AMIAUD 1 rue Gu- 
tenberg 85600 MONTAIGU. Tel. 
(51)94.04.83 le jour et 
(51) 94.13.79 le soir. 



ZX81 

VENDS ZX81 (jutltei 84) + ah- 
mentation 4- manuel + cordons 
4- 16K + trvres+ nombre i 
grammes + 2 cassettes (cobatt 
rex) pour 780 F. 

Hubert THUIZAT. route de Mou- 
Ims. 58390 DORNES Tel 
(86) 50 63 85 (apres 17 h) 

VENDS ZX81 (01/83) + 16K (n>e- 
mopack) 4- K7 tyrannosaure rex 
4- livre "50 programmes pour 
ZX81* 4- hvre et K7 n- 1 "ZX81 a ta 
conquete des jeux" 700F 
F SEVAUX. 112 rue Houdan 
92330 SCEAUX Tet 

(1)350 77.61. 

Voire moniteur couleur est en 
panne ou absent alors que la TV 
couleur Famihale nest pas dis- 
ponible. Achetez un modulateur 
UHF NB entree peritel Sortie an- 
tenne compatible tous micros 
sauf One. 140 Irancs Franco 
Tel. (61)0190.14. 

VENDS ZX81 4- 16K 4- clavier 
ABS 4- cassettes TR1 4- budget 
familial 4- fichiers 4- 2 jeux 4- 2 li- 
vres de jeu + manuel 4- magne- 
to. Le lout pret a fonctionner. 
Valeur 2200 F Juin 84. Vendu 
1700 francs. 

Tel. (94)57.72 84. M. CHEVA- 
LIER HYERES. 

DIVERS 

VENDS LASER 200 : 750 F. + 
3 K7 de jeux 4 en cadeu un 
livre et une cassette de demons- 
tration (jouez au LASER 200). 
(Valeur 1570 F.) Vendu 1200 F. 
Gerald BIELDERMAN 2 rue des 
Sequoias 95840 VILLIERS 
ADAM Tel: (3) 469 07 40. 

VENDS ALICE + extension 16 
Ko (mai 84) sous garantie : 
1500 F. + manuels et nombreux 
programmes + magneto: 600 F. 
Emmanuel PICARD 21 rue de la 
croix de Romont 88390 OAR- 
NIEULLES Tel: (29) 34 22 97. 

VENDS SEIKOSHA GP 100 A 
avec branchement pour OR1C1 ; 
2000 F. Andrfi DECLOITRE Tel: 
797 50 29 (le soir). 




DEUXUGNEURS: LES FAINEANTS FAINEANTENT ENFIN (OUF) 



Y'a pas ! Tanl que ion ne vous piend pas par les sentiments, 
vous ne reagissez pas un poll, Apres une premiere semaine 
de ftemmc profonde vous avez, pour la seconde semaine. de- 
cide de sortir un bret instant de voire torpeur. 
Bonjour les huit tonnes et demie de lettres que nous avons 
recu (dans les dents) cette semaine. Et tout ca rten que pour 
te concours du plus flemmard ? Bravo I Betle jeunesse I Mais 
c'est cetle que nous aimons. alors allez-y: nous ne testons 
vos trouvailles que vingt-deux heures par jour ! 
Resultat des courses pour cet episode, pour pouvoir recom- 
pense: les meilleurs cancres chaque semaine. nous offrons 
(en plus des deux softs au premier) des lots de consolation a 
cinq autres auteurs. 

ET VOICI LES RESULTATS 

Comme nous aimons le suce-panse. nous allons commencer 
par tes accessits. 

Philippe DURAND est un accroc de la tele au plafond pour la 
regarder de son lit en compagnie de son One et de son 
Atmos, II nous propose son Looping pour la plus grande joie 
des esprits tordus et autres amateurs de creme renversee. 
listing ORIC 1 et ATMOS 

1 FuR:-:=33T012e" PR1NTCHR3KX>; =HEXT = PRI 
NT FORX=46344TO47088STEP8 

2 F0RY=OTO3 1 S-PEEKX X+Y > < POKEX+Y,PEEK< 
X+7-Y > i P0KEX+7-Y, S ■ NEXTY, X 

Christophe GOENAGA pratique le Yoga avec son Tl et sans 
extension, c'est vous dire comme il est fort. Son calendrier 
perpetuel doit etre modifie chaque annee en effectuant une 
rotation de la chaine des jours ligne 2. 
Perpetuelisez avec lui. 

fisting TEXAS 

1 INPUT "SI VOUS VOULEZ SAVOIR DUEL JOUR 
DE LA SEMAINE NOUS SOMMES ENTREZ LA DAT 

E SOUS FORME JJ.MM<1 < ?D5) M :JJ,MM 

2 PRINT SEG«("MARMERJEUVENSAMDIMLUN", 1+3 
*(VAL(SEG*( "003128313031303131303130", MM 
,2>)+JJ-l-7*INT( (VAL(SEG*( "003 12831 3031 3 
03131 303130". MM. 2) J+JJ-D/7) ) ,3) 

Fredo GIACHETTI n'aime pas du tout, mais alors pas du tout. 
ce qui est simple et evident. Du coup, il vous a concocte de 
quoi occuper la soiree du reveillon pour toute la famille. 

listing THOMSON 

1 CLS!FORC-0TO3£8STEP8:FORL=0TOeeeSTEP4s 
BC :,L -■ C+8#RMD,L+5*RMD>/9:NEXTL!MEXTC 

:. I9>-<38,15>" ":B0X(88»88>-C£48, 
l£8)r8:C0L0Rl!L0CATEl£/ll:PRIMT"TAS DE F 
- r«EAMTS"JL0CftTE12, 13iPRINT"D£UX CARRES 
30MT ':LOCATEli, 14s PRINT* IDENTIQUES:LESQU 
ELS?" 

2 F0RIs0TO5:PLAY"AlTlO3L12DO#RE#DO#RE#DO 
•RE#nX#FA«S0#LA*PPT30SL24RE#HlJMI#":NEXT 
:LOCATE0/24,0 



Philippe CALLEC possede un don tres certain de bourrage de 
crane Vous devez sans aucun doute passer a la casserole 
de Philippe car vous pourrez profiler de sa creativite certaine 
dans le domaine du comique de repetition 

listing Commodore 

6 PPIHT'TWHHWiPEEl ' I62>+PEEK<162>*2I00+1; 

■*RErWOUl>EST*P.ELRTIF*!**" PPIMT"RUN" 
61000 PRIHT"«T -P0KE631, 13 -P0KE632. 13 POKE 158, 2 
Jean-Claude DEVAL n'a pas eu froid aux yeux: il a du rester 
debout au moins cinq fois plus longlemps que les autres: il 
nous a envoye cinq "deulignes". Celui qu'il preferait n'est pas 
notre chouchou. Nous en avons choisi un autre. 

listing Apple 



,96.0.0 : F - 768: D - 749: S •■ 770 r A*=* »=«■(£= *: 

HOME : KTA9 12: 'TAB 24; PPINT f* ; : HTCB 12:'/TAB 2lsPfi!KT 
A*t POKE 34,21 : POKE 35,23i MGR i HCOLOO - 3 
20 GET A»: PRINT <A»)j: X - ASC<A*> t V - PNO <X) • 75 t 
HPlCT I30-X.73-Y TO t30*X,73-Y TO 130*X,75»Y TO 130-X,75»T 
TO 130-X.73-Y! FOP I » I TO 3 STEP .5 t POKE F,X: POKE 0,5: 
CALL Si POKE F,X»2/I : °OVZ 0,4: CALL S: NEXT: GOTO 20 

Grand vainqueur de !a semaine. Gerard SEBBAH reforme 
I'lNPUT de voire Apple pour en faire une instruction d'enfer. 
Votre Apple digerera dor6navant les ";", "," et et autres ":' 
grace a son programme. 

Rentrez le listing 1. Faites un RUN 1. Vous pouvez mainte- 
nant effacer la ligne 1 . Par contre ne touchez jamais a la ligne 
sous peine de deboires divers. Rentrez le listing 2, il 
contient un exemple d'utilisation du nouvel INPUT qui s'ap- 
pellera dorenavant CALL 2080 I 

listings Apple 1 et 2 



1 PHUfT "TAPE? QUELQUE CHGSE. 

2 CALL 2080: A*= M1D*<1H*,]> 

3 PRINT -YOUS AUEZ TAPE :';A* 



IN* = ••: CALL 20i7: REM ••••....•........... 

PAS MODIFIER CETTE L I SJE •••• 

! FOP I ■ 20e7 TO 2068: REAO C: POKE I ,C: NEXT 

149 . 1 , 74 , 1 60 , 3 , 1 45 . 1 05 , 200 , 1 69 . 2 , 1 45 , 1 05 . 96 , 32 , 



DATA 



II .253,138.: 



0.2,145,105,96 

Joubliais ! Le programme a ete baptise PCQMTM (plus court 
que moi tu meurs) par son auteur. 

Enfin la redaction decerne un accessit EXCEPTIONNEL a 
Franck-Olivier LUCEA qui a deride tout le monde en ces 
temps de crise grace a son envoi. 

lettre de F-O Lucea 



W 1 \ UCfCUK I 



k?Jt, 



ft*\(A.oLi*aL. LOCXA- 



\o fti*r "c£ ry«/AMH£ 

WC SCfcT ft fcCW » ; 
( fy*^ ZX H ) 



HIPPOJOYST 



C'est Japonais, c'est un das meilleurs et das 
plus costauds que Ion connait: trois boutons 
de tir, une bonne prise en mains et quatre ven- 
touses pour le coller deflnltivement sur la 
table de la salle a manger (Super pratique pour 
les repas !). Prise standard pour Amstrad. 
Atari, Commodore 64, MSX, Vic 20. Compatible 
avec les Interfaces d'Oric et de Spectrum. 
Pour Apple, Thomson et Texas. Tintin: pa ne 
marche pas ou alors it faudra bidouiller ! 
Ah, au fait, c'est 100 balles, port compris. 
C'est bon, c'est pas trop cher ? Envoyez vos 
sous apres avoir rempli le bon de commande 
ci-joint. Le ministre du commerce exterieur du 
Japon vous remercie bien bas. 




^^•sVir**^ir #1* ***** 

Bon de commande a decouper et a renvoyer a 
SHIFT EDITIONS, 27 rue du General Foy 75008 
PARIS. 

Nom 

PrAnom 

Adressa 

Date : p. u too f 

Signature: Qt6 * 

cheque joint... Total: 



DEUX SUPER-CONCOURS PERMANENTS 

20 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE pour 2 
personnes en CALIFORNIE au meilleur loqiciel du TRIMESTRE. 



Un concours de plus! 
Rien de bten original dans 
cette lormule, pourtant nous 
essayons de faire quelque 
chose de different: nous orga- 
nisons un concours perma- 
nent tous les mois et tous les 
trimestres! Et avec des prix 



salres a 1'uiilisation de ce pro- 
gramme. 
Bonne chancel 
Reglement: 

ART.1: HEBDOGICIEL organise 
de facon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur logiciel 



dlgnes des programmes que du mois et du trimestre. 

vous alfez nous envoyer! ART2: ^ concours es t ouvert 

De plus, ce seront les lecteurs ^ , ou , auIeur de , cje] que | que 

^f^™^™I e T,*«?L r s * le m a«eriel suTlequel il est 
realise. L'envoi d'un logiciel en 
K7 ou disquette accompagne 
dun bon de participation de- 
coup^ dans HEBDOGICIEL 
constitue I'acte de candidature. 
ART.3: La redaction d'HEBDO- 
droit de 
seledionner sur la base de la 



leurs programmes preleres 

sur la grille recapitulative 

mensuelle. 

Pas de fury, pas de decision 

arbttralre, HE0DOGICIEL n'in- 

tervenant que dans te choix 

^** p JSS,?mT?ll q °[ ^'fu 1 G'CIEL se r6se7ve 
etre ORIGINAUX et FRAN- 



CAIS. SI votre programme qualil6 et de ror jgi na | ito tes iogi 



n'est pas tout a fait au point, 

un de nos spectalistes vous 

dira comment i'ameliorer pour 

pouvofr nous le proposer a 

nouveau. 

Pour partlciper, II vous suttit 



dels qui sont publies dans le 
journal. 

ART.4: Ce sont les lecteurs qui, 
par leur vole, determinant les 
meilleurs logiciels mensuels et 
trimestriels. 
nous envoyer vos pro- ART 5: Le pfix aNou6 ^ |e 
_ nmes accompagnes du concours mensuel sera remis au 
bon de participation ainsl que p[tJ3 , affJ un m0 j S apr6s [a do- 
toutes les explications neces- , ure du concours mensuel. 



ART.6: Le prix alloue pour le 
concours Irimestriel sera jemis 
au plus tard un mois apres la 
cloture du concours Irimestriel. 
ART.7: Le present reglement a 
ete depose chez Maltre Jauna- 
Ire 1 rue des Halles 75001 
PARIS. 

ART.8: HEBDOGICIEL se re- 
serve le droit d'interrompre a 
tout moment le present 
concours en avisant les lecteurs 
un mois avant. 

ART. 9: La participation au 
concours entraine ['acceptation 
par les concurrents du present 
reglement. 

HEBDOGICIEL: 27 rue du Gal 
Foy 75008 PARIS. 

Sera declare gagnant le pro- 
gramme qui aura obtenu le 
plus fort pourcentage de vote 
par rapport a la totalite des 
programmes recus pour un 
meTne ordlnateur. 
Ainsl, pas de favoritisme pour 
les ordlnateurs plus pulssants 
ou tres diffuses. 



BON DE PARTICIPATION 



Nom 

Prenom 

Age Profession 

Adresse 

N' telephone 

Nom du programme 

Nom du materiel utilise 

declare elre I'auleur de ce programme qui n'est ni une imitalion ni une 
copied un programme exislant Cn pioq'arr.int; rcstr; ma propneteet 
j autonse HEBDOGICIEL a le publier La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obhgatoire 

(signature des parents pour le-, mineurs) 

I o programme doi! etre expedie ',ur support magnetique (casselleou 
disquette) accompagne dun rjescnptlf delaillr: du materiel Utilise, 
d'une notice d'ulilisalipn du programme Les supports des program- 
mi;-, publies son! conserves, n oublie; done pas den (aire une copie 




BIDOUILLE GRENOUILLE 



L'Auguste de la semaine der- 

niere pourra enfin retrouver le 

soleil, grace a Eric Huymh. 

Celui-ci nous envoie en effet la 

solution de Waydor. Ceux qui 

veulent continuer a jouer, bou- 

chez-vous les yeux 1 

-Aller a la forge et prendre les 

cles et la lampe. 

-Aller a !'6glise. La, prendre la 

pierre, ce qui declenche I'ou- 

verture d'un passage secret. 

-Aller dans le passage secret 

et allumer la lampe. Ne pas 

toucher aux ossements I 

-Aller jusqu'a la grille, I'ouvrir. 

continuer. 

-Prendre le bateau, continuer. 

•Prendre la piece, et revenir 

sur ses pas (important). 

Le plus dur est fait, ressortez 

comme vous etes entre. 

-Aller a 1'atelier avec tout ce 

que vous transportez (ce 

qu'Eric appeile le "bastrin- 

gue"). 

•Ouvrir le colfre et y jeter tout 

ce que Con a. 

•Prendre du bois, des clous et 

le marteau. 

-Fabriquer des rames. jeter le 

marteau. 

•Vous devez avoir les rames et 

le bateau. Vous pouvez rnain- 

tenanl entrer dans lo chateau. 

Un conseil: prencz la piece au 

passage, car lout lo monde est 

corruptible. 

Eric ne s'arrete pas la ot nous 
pose uno question, Les pos- 
sesseurs de CBM 64 ne sont- 
lls pas desavantagds dans le 
concours deuligneurs, puisquo 
leur machine n'accepte que 
100 caracteres par ligne Iogi- 
que, alors que I'Apple en ac- 
cepto 255? Non, et pour plu- 
siours raisons. D'abord. sur lo 
CBM 64, on a acces aux "tou- 
ches shiftrios" qui permotlent 
do coder un mot basic on 2 ca- 
racteres. pas sur I'Apple. En- 
suile, nous no jugeons pas 
dans I'absolu mais par rapport 
a la machine. Do plus, la "phi- 
losophic" du concours consisio 
a Irouver de;, -ilgonlhrnes ori- 



ginaux. II est bien evident 
qu'un dessin peul etre beau- 
coup plus beau si Ion ajoule 
de la precision, mais les des- 
sins, c'esl limit©... 
Trouve-nous un algorlthme do 
conversion decimal-hexadeci- 
mal, c'est plus interessant, et 
ca tient aisement en deux 
lignes de 80 caracteres. Ou 
fals-nous rire, nous avons recu 
des Unligneurs (!) qui y ont 
reussi ... 










■ 







Derniere chose pour Eric, mais 
qui pourrait renlrer dans la ru- 
brique Minitel, puisque plu- 
sieurs d'entre vous ont utilise 
ce biais pour nous poser la 
question: si vous dies nouvel 
abonne, voire numero se 
trouve sur la bando d'expedi- 
tion du journal. 

Manic Minor: Patrick Martin 
vous donne un true elficace 
pour avoir un nombre de vies 
illimite sur la version Spec- 
Irum. au debut du chargemonl, 
lorsque I'dcran est devonu 
noir, "breakez"-le, puis ajoutoz 
POKE 35136.0 au debut de la 
ligne 30. C'est tout ? Cost 
tout, et ca marche. 



La version Commodore pro- 
mise la semaine derniere at- 
tendra encore une semaine: 
avec leurs doigts palmes. les 
grenoutlles ont du mal a veri- 
fier le programme. 

Petit explicatif sur le dispositil 
anti-cafe pour Atmos d'il y a 
deux numeros: dans le listing 
N" 2. rajoulez uno ligne 200: 
CALL # 65, Le mode d'emploi 
semble vous avoir pose quel- 
ques problemes: lapez-le et 
sauvegardoz-le avant de faire 
RUN. Lorsque vous voulez re- 
copier un programme, chargez 
le programme N° 2 ot faites 
RUN. Puis tapez "L" pour lire 
le programme original, et "S" 
pour le sauvegarder sur une 
de vos cassettes. La version 
Oric-1 arrive biontOt. 

Allez, il est tard, c'est I'heuro 
de so metlre sur Minitel. Par lo 

614 91 66, tapoz 169 001 672 
P suivi de IMA. Vous aurez 
droit a une succession de des- 
sins anim6s suporbes offerls 
par Imaginalic. Une message- 
rie sur le 613 91 55: tapez 
DXPA1. Vous enlrorez dans lo 
sorvour, II no vous reslera plus 
qu'a laper le mot de passe 
"OVNIAA" pour y accoder. 
SM. servour lantdme dont 
nous vous avons dGja par!6, 
refail ses premiers pas. II s'ob- 
tiont on composant SM par lo 

615 91 77. II comporto uno 
messagorio on diroct dont pas 
mal do sorvours loraiont bion 
de s'lnsplrer: vous choisissoz 
(aloatoiremont) un groupo de 
cinq porsonnos, et les r6pli- 
ques s'affichent au fur et a 
mesuro que vous les tapoz, on 
temps reel. C'esl pour Unstant 
la meilloure (avec STEL) des 
messageries quo nous avons 
trouve. 

Vous pouvez loujours nous 
ecrire sur Armon (615 91 77), 
bolte Hebdogiciol. 

Cr6a ? 



LE LOGICIEL DE LA 
SEMAINE 

CONAN de DATASOFT pour COMMODORE 64 , 
ATARI , APPLE lie et c , IBM PC 



Laneantissement lotal et defi- 
nite de ces deux mecreants de 
Miche et Micha ne pouvait 
passer que par lulilisalion de 
leurs propres melhodes. c'est 
a dire lincommuntcabJlite. la 
desin'ormalion et loccullisme. 
Apres les avoir attaches, nous 
les avons done lorces a lire a 
haute et intelligible voix rinte- 
graiite des annuaires des 
Postes el Telecommunica- 
tions, le dernier numero du 
Chasseur Francois et les oeu- 
vres completes d'Alan Kar- 
deck. 

Agonisants apres ce traite- 
ment. la lecture repetee du 
Hensson et lecoute des enre- 
gistrements de Bobby La- 
pointe les ont enfin mis hors 
d'etat de nuire. A moins qu'ils 
ne se procurent quelque phil- 
tre magique. magique comme 
le logiciel quits ont ose salir 
par leurs bavardages steriles 
de la semaine derniere: Conan 
le Barbara. 

C'est. en etfet. avec respect 
qu'il faudra desormais parler 
de ce logiciel qui atteint enfin 
le sommet sur lesquel Lode 
Runner semblait detinitive- 
ment installe. Tout semble 
parfail dans ce logiciel: le sce- 
nario. !es graphismes. la rapi- 
dite. i'mteret du jeu et la diver- 
site des tableaux. Un logiciel 
devastates, comme le heros 
dont il s'inspire! 
Identifie a Conan le barbare. 
vous pourrez vous deplacer 
dans des tableaux aussi vanes 
que somptueux. Arme de voire 
celebre glaive, il vous laudra 
vous detendre contre chauve- 
souris. scorpions et nombre de 
tauves hostiles. 



Escalader les grands arbres 
dune torel magique, voler sur 
des bulles de lave incandes- 
cente. ramper dans des sou- 
terrains ensorcelles ou utiliser 
les Irappes de la quatrieme di- 
mension; tout est possible a 
Conan' le barbare qui peut 
marcher, courir, monter. des- 
cendre et lancer sa hache a 
une vitesse loudroyante. la Vi- 
tesse du langage machine! 
Et. comme si le jeu darcade 
proprement dit n'etait pas suf 



(isament etticace et muscle. 
I'avenlure. la reflexion et la 
stralegie sont presents , ajou- 
tant encore a linteret et a la 
veritable passion qui va vous 
emporter; arrive; au bout de la 
quete du heros barbaresque et 
solitaire que vous etes de- 
venu. 

Hubert Bannisseur de Sort 

et 

Maxence de la Venture 




LES AVENTURES 
DU CONCOURS 
MICHE ET MICHA 



menu 




125. 0, 63, 37. 34. 33, 37, 63. 
57. 112. 60. 49, 72, 34, 53. 52. 
49,51. 36. 57. 63. 62. 112. 63. 

34. 55. 49, 62, 57, 35. 53. 34, 
49.57.36. 125, 53.60.60.53. 
112. 52. 53. 35, 112, 51. 63. 
62.51.63.37.34.35. 112,53. 
36.72.32.49.35. 112.62,63. 
37.35. 111.93. 125.0.49,34. 
51, 53. 112. 33. 37, 53. 112. 
60.49, 112.34.53.52,49.51. 
36, 57, 63. 62. 112. 53. 45. 46. 
112. 52. 53. 61. 49. 55. 63. 
124. 112. 51, 119, 53. 35. 36. 
112. 53.38.57, 52.53.62.36, 

126. 93, 125. 20. 53. 61. 49, 
55, 63, 124. 112. 51. 79. 53. 

35. 36, 1 12. 58, 63. 37. 53. 34. 
112, 60, 49. 112. 51, 49, 34, 

36. 53. 112. 52. 37, 112. 32, 
63, 32. 37. 60, 49, 57, 34. 53. 

111. 93, 125, 19. 119. 53. 35. 
36. 112. 35. 37. 34, 36, 63. 37. 
36. 112. 32. 49. 35, 112, 49. 
60. 60. 53. 34, 112, 49, 37. 

1 1 2. 50, 57, 35. 36, 34, 63. 36. 
124. 112. 53. 36, 112. 36. 34. 
49. 36. 49, 57. 60. 60, 53. 34. 
126, 112. 0. 49. 35, 112, 32. 
63. 37. 34. 112. 62. 63. 37. 35. 
124. 112. 33, 37, 63. 57. 126. 
93, 125, 4, 119. 49. 35. 112. 

34. 49, 57. 35. 63. 62. 126. 
112, 17, 60. 63. 34. 35. 112. 
63. 62, 112. 38. 49. 112. 54. 
49. 57. 34. 53. 1 1 2. 50. 63. 35. 

35. 53. 34. 112. 60. 53, 35. 
1 1 2. 60. 53. 51 . 36. 53. 37. 34. 
35. 126. 93. 125. 4. 119. 49. 



35, 112, 34. 49. 37. 35 p 63. 62, 
126. 112. 31. 62, 112, 38. 49, 
112, 60, 53. 35. 112. 54. 49. 
57,34.53. 112.50.63.35.35. 
53. 34. 126. 112. 20. 37. 34. 
126, 93. 125. 19. 53. 37. 40. 
112. 33. 37. 57. 112, 63. 62. 

36. 112. 60. 37, 112. 58. 37. 

35. 33. 37. 53, 112. 60. 49. 
112, 63. 62. 36. 112. 52. 53. 
58. 49. 1 12. 36. 34. 63. 37, 38, 
53, 112. 52, 53, 112, 33, 37. 
63. 57, 112. 33, 37. 119. 63. 
62. 112. 51, 49. 37. 35. 53. 
126. 93. 125, 19. 119. 53. 35. 

36, 112. 35. 37. 34, 126. 112, 
19. 119, 53. 35. 36. 112. 32. 
49, 35. 1 1 2, 52, 34. 63. 60. 53. 
112. 52. 53. 112. 60. 53. 37. 
34. 112. 52, 57, 34. 53. 112. 

33. 37, 53. 112. 60, 53. 112. 
32.34.53,61,57.53. 34. 112. 
49, 112,36.34.63.37.38.53. 

34. 112. 60. 53. 112. 51. 63. 

52. 53. 112. 53, 36. 112. 49. 
112. 62. 63. 37. 35. 112. 53. 
62,38. 63. 41.53. 34. 112, 51. 

53. 112. 36. 53. 40. 36. 53. 
112, 49. 112. 55. 49. 55. 62. 
53.61.53.62.36, 112, 52,53, 
112. 35. 57. 40. 112. 61, 63. 
57. 35. 126. 93, 125. 17. 60. 
60. 53. 42, 124, 112. 38. 57. 
53, 62. 35. 124, 112, 60, 49, 
57, 35, 35. 63. 62. 35. 125. 60. 
53.35, 112.32. 60.49. 62.51. 
56. 53. 34. 126. 93. 29. 57. 51. 

56. 53. 112. 53. 36. 112. 29. 

57. 51. 56, 49 
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ORIC One Time 
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Texas Instruments 



EXTENDED BASIC EUROPE 

AVEC MANUEL FRANQAIS 800 F* 




K7 EF5JLO#*/SOFTYVARE POUR Tl 99 : 

lunar lander 2 pour tiaUc ecendu : smAMxr- 

* wofc spaoaui 

Lunar ju-nper pour Orsc rtendu mora de 

Reqace 

Solar iyB*m pour banc cimdu ptkxagei 



rn 79/* A Pal 
r Tl 99/* Perttet 

Mlcro-oreSnat eur T199/* Secavn 

ACCESSCXRES Tl 99/* 

Vtodutniruf LECAM Ranee 



1. 160.00 I 

1.600,00 I 

1.600,00 1 
PRDCTTC 



promotion 



Cade tancn magneto-cassette; 
Pare rrtsneses jeu* 

Magr*o-casseces atrfuaue tl Larsav 
•*■« compwur r caMe magneto cemprs 
Irf^nmantr SefeBtna GP 50A 
Impnmarw Setoicha GP SO0 
EPSON (W 80 fricDorvtraenon 



Interface para»rte. 

PfcOGlWMMATIOf* 

rjirntlrfl Cavr. Europe Maruel angfar. 
Efflended axic £t*rope Marxaef h art^r. 



500,00 
500j00 

ifXJ.rJO 
2\0JX> 


□ 

a 

D 


370XO 
1350.00 
Z5O0aW 
4 150^0 


D 
□ 

a 


Z650JX) 


□ 


to-nxx) 

1 090.00 




750JM 

BCOJ30 

IJ*Oi» 

70JO 

75.00 


D 
D 

rj 

a 
a 



LOTrV I WOfSPENSABLE 

Le Modutp HASKT ETENCXJ manuH en fran(ars 

K7 BASfC PAR SOt-MEWE 

<7 IECHNKXJE D€5 PROGRAMMES DE JEUX fV I 

K7 TECHNIOUE DES PROGRAMMES DE JEUX ISP 2 

Cemembie 850,00 F. 



OCGAJStrSATlON 
Orarllnrce I TSjOO I Z 

GsmiSK isassl c 

MODULES EDUCATION 

AatfocrvOron 147J30 D 
D*rxn4rrrtaa\ \ 147.00 j D 

MODULES LOtSIRS 
Cottiki tour 1*7J» ( D 

JajiMrJeoa M7J30 O 



Omcnanadt 
MS) 

cljrgerOmr 
Utataxgccn 



?S0J» 
SOXX} 
2S0j00 
250iM 



M7J30 
I47XO 
I47£0 



l*7J» 
206XO 



LOT M* 2 EXTENSK3N COMPLETE 

Le Module BASK ETENDU mrud en franco, 

PC7 BASIC PAR SO-MEME 

OOENSiON MEMOIRE 32 K EXT. 

K7 TECHNIOUE DES PROGRAMMES DE JEUX N° I 

K7 TECHNIOUE DES PROGRAMMES DE JEUX W 2 

{.ensemble 2.24O.0OF. 



LOT N» 3 ETUDE DU LOGO 

Le Module BASIC ETENDU irtn-et en frames 

EXTENSION MEMOtRE 32 K EXT 

Tl LOGON 2 

2.795.0OF. 



95.00 


a 




IZDOO 


a 
D 




\i:J -'.:':; 






MOOULES ATARISOTT POUR Tl 99 : 
fftvrabie. A pjrtir du IS/1 1/B4) 
^cfpram | mS6\ D lOi-UrT 

Win I 7l9ffl)l □ I 




iinczl.aii— 

CHANCE DE TOUCHES 



PROGRAMMES TEXAS EDUCATION : 

•no od au IT 79/4 [ I } M (2| • 

LM wrJwiiquia de praorammra dr jrvt 1 1 1 et (2| • 

Mac crones l«2 • 
HEBDOGIOELS SOFTWARE : 

n isr> I B*x srapie K7 : 1 2 ^ur • 
Tl ff 2 Bane elendu : 12Jeux 
niruDaj.KreCi.nic:etendu jeu d" aventurei 
n r* 4 Basic etendu ; Ctura. dart crystal duet 
mt>ai (jef*euie. -Jirteur. -jjdpt pmm 
m tunlie ^ rxxi dltponlblc 




LOTN * TRA/TEMCNT DE TEXTE 

Le Module 8AS1C ETErjDU rainod pn li^r^r, 

EXTENSION MEMCXRE 32 K EXT. 

INTERFACE PARALLELE pour Tl 99 

1MPR1MANTE EPSON RX 80 FRICTION el TRACTION 



LOT jy« S JEUX 

Le Module 8ASJC ETENDU fiwmuel en rranoaw 

MOOULE JEUX USA 

SUPER DEMON ATTAOUE -OTHELLO- HOOPER 

BURGERTIMF-MUCHMAN 

K7 INntOOUCTrON AUX JEUX N= I ET V 2 

Lensembte J.500.0O F. 




UN COFFRET CAOEAU : 

• I mfcro-ordlriateuT ZX 81 

• 1 clavier ABS 

• 1 coorj de programmation lang^oje basic 

• 2 K7 avec 1 programme; de Jeux 



LE LOT DE NOEL 

MODULES r UNWARE POUR Tl 99M 

• RASBn RAIL LE LAPIN MAUN 

• ORMNG DEMON JEUX DE VCMTURES 

• ST-NIOX ; LE PERE NOEL ARRIVE 

• AMBULANCE I AVEZ-VOUS CONDUrT 
UNE AMBULANCE 



ZX SPECTRUM + : 

LE CLAVIER D UN MJCRO-ORDINATEUR 

• *6KPai 

• Clavier type OL compaowM lotaie avec les locjciel. et 
pWpfterlOM" SPECTRUM 

ZX SPRECTRUM • *8 K Pal 

m. 7z»f rrcn 

ZX SPECTRUM -MK Ptfltet 

Prn 2590 f net] 



BON DE COMMANDS 
TARIFS DECEMBRE 1984 

Nam 

Prtnom 

Adrrtte 

W 

Code POStJt 

vw ... 

C« prur iart tnOaafi ef peuvrnr rtre mocttfe Mm 

pn*an« 

PrtxAro ahpomota dam Li Umire dr not \tix* . en 

Partkifuaon wx trsn deport et detpeOKion enre- 
eortvurxM pour In logKiefs '30F 

{A Hfai A CAICIM. 

65/A7. Mixnt^ermjei /S005PAWS 

let 3256B88 - Teter E7SV.I/ 220064F/I3O3 KAC 

tlOJoun. 



DEMANDEZ LE PROGRAMME soft-parade 

Achetez vos logiciels les yeux fermes, nous les avons testes pour vous ! 

Nous avons selectionne pour vous les meilleurs logiciels actuellement disponibles en France. Nous ne 
pretendons pas que cette liste est complete et definitive et il est evident que nous y rajouterons regulie- 
rement des programmes. Pourtant, vous chercherez en vain certains programmes quijouissent d'une 
bonne reputation et qui se vendent surtout grace a la publicite et aux conseils des vendeurs qui ne peu- 
vent pas connaitre tous les logiciels disponibles. 

Les prix sont, nous I'esperons, les meilleurs du marche et les abonnes - anciens ou nouveaux - benefi- 
cient en plus d'une remise de 10 %. Si vous etes nombreux a nous suivre dans cette experience nous 
pourrons rapidement arriver a fatre baisser les tarifs des fournisseurs pour attetndre I'objectif que nous 
nous sommes fixe: ramener les prix a une plus juste valeur ! 

Les classements sont faits en fonction de t'interet du programme et ne tiennent pas compte des prix, 
c'est a vous dejugerde t'opportunite de la depense. N'oubliez quand meme pas que sile rapport quali- 
te/prix est mauvais, le logiciel ne peut figurer dans cette page ! 



W ' -y 



SI vous flies ABONME, 
dedulso/ VOUSMEMES 
vos10%de REMISE 
sur I" bon de commando. 




GHOSTBUSTEftS 

Les tannines s ape 41 en : a i 
Une brtnque. sur noire bon 



-nouveau 



ZENJI 

Pasmai.iesjemdoreneioon B*n.ies|eui 

darcade Super les tAOMaui speeds Aiory 

le melange des Irois qu en diles vous ' 



LE VOYAGEUR DU TEMPS 



u»c garde de U station 01 



REVENGE OF THE MUTANTS 
CAMELS 

Les chameau*. ca va Man les cnameaui 



euau GRAND 

TENDREPOULET 

Vous etes une poule i bravo (3 comroo nice 

b*n') Etvousdeveipondredeso^ulslah. 

une vraie poule •). eviter rorage. kr temuet 



aeuse de course 






c est c 



Teneui qui vous rapporte 

LANCELOT : 

Duels en serw centre d'abominab les man- 
Ires, qui no pen sent qua vous mangcr.aioi 
quevousnepensef quatesmanger Festi 
garanli. el apporle* votre moularde 



cpoustouftanls 



Runner ' Dans lequel on peut cieei 
pres laWeaun ! Da-is lequel.l taut u 
t»en de rap-diie que Ue slralegie ' * 



vous etes au« commnndes dun SLytoi 
avec oidinateur de bord. radar el pilotc 
aulomatique 




LOGICIELS 




Pn. 


Qht 


Montanl 




















ftinx^fron tat ban deport en lecamnwnM 


+ 15.00 


mouchoh <o ■>. special aoonn 

WAAONNt {Obl.9alo.1el 1 1 
MONTANT a 




_ 











otrwm pom 



lijhmhammr 



seven cmrs of gold 



APPLE 










iuumM 


ww 


IL 1 M 


ttutt 




1 BRUCE LEE 


OtM 


* J M 


TMOO 




J 5MTFOI 


Cask 


A J M 


M&0O 




4 summer games 


OfW 


A J M 


»*0 flO 




3 paranoia* 


ORK 


F V R 


MOW 




BDAUAS 


DSL 


• V R 


MM 




rnoa 


DSK 


F V ■> 


jsojM 




•MIMMM 


0OL 


A 4 M 


MUM 




tOHOKM 


0>SK 


ARM 


MOM 




10 AZTEC 


CK5K 


A J M 


KOBJ 




MAE. 


0CCK 


1JI 


joooo 




devolution 


C«5K 


A J M 


vara 




13 ruCMT SIMULATOR ■ 


TASK 


A J R 


•w.oo 




HlOSIOfllEHJB 


DC9L 


A V R 


JW.D0 




11 TEMPLE OAPSHAI 


:■:-. 


r v r 


WO 00 




16 TIME ZONE 


Cask 


A V R 


mwo 




1 7 ITU soajLATEUt DC VOL 


DtSX 


F J B 


MOJ» 




1 a PW8ALI CONSTRUCTION 


DCSK 


A J M 


MCUto 




ttCHOUFTBI 


OSK 


A J M 


MOM 




» HAM) HAT MACK 


as* 


A J M 


MOM 




4IOHTA 


DCSX 


A J M 


MOM 




»ZAnoH 


OttK 


A J M 


MOM 




M CHOCS DES MLA.TWAT10NAIES 


WSK 


F Y R 


MOM 




COMMODORE 6A 


„ 


... 


...» 




1 GHOST8USTERS 


DRt 


A J M 


MOM 




1LOOE RUNNER 


MOEM.E 


A J M 


MOM 




muni 


OESKouK 


A J M 


»aoo 




4 SUMMER GAMES 


USX 


A J W 


MOM 




4 SUMMER GAMES 


?K7 


A J M 


MOM 




3 MR ROBOT 


K7 


A J M 


IMM 




B SEVEN CTTTES OF GOLD 


WSK 


A V M 


MOM 




7 VOYAGEUR 


W 


A J M 


14SM 
*MM 




B CHMESE JUGGLER 


K7 


A J U 


MM 




10 bozo-s WGHT OUT 


K7 


A J H 


10000 




IIhomt 


LWK 


A V R 


nun 




13 FORT APOCALYPSE 


K7 


A J M 


moo 




14 REVENGE OF THE MUTANTS 
CAMELS 


K7 


A J M 


LOOM 




U HOVER BOWEH 


K7 


A J H 


IMM 




IS KILLER WATT 


KJ 


A J M 


IMM 




I7ZEHJ 


K7 


A J R 


M - IMM 




iBAXfSASSASStt 


CMSK 


A J M 


MOM 




IBONE-ON-ONE 


CXSA 


A J M 


MOM 




MEVOLLTnOH 


WSK 


A J M 


MOM 




11 AftAMAMMGHTS 


K7 


A J M 


•MO 




M FUCMT SMULATOft ■ 


[i->: 


A i R 


4*0,00 




13 PBRSALL CONSTRUCTION 


WSK 


A J M 


MO.OO 




MCHORjprn 


MODULE 


A J M 


MOM 




» HARD HAT HACK 


CKSK 


A J M 


MOM 




jscnoL 


CASK 


A J M 


MOM 




ITARCHON 


CASK 


A J M 


MOM 




M HUBERT 


KT 


F J M 


IMM 




19 RADAR RAT RACE 


MODULE 


A J M 


BOM 




VTC20 










I LOVE RUNNER 


MOOULE 


A J M 


IMM 




1CHOPUFTER 




AJ M 


IMM 




ORIC 1 / ATMOS 










1 DEFENSE FORCE 


K7 


A J 


MM 




tMBUiran 


K7 


F V R 


IMM 




3MRWMPY 


K7 


F J 


HM 




4 DOGGY 


K7 


F J 


IMM 




5 SUPER JEEP 


K7 


F J 


I40M 




BMOOBtT 


K7 


ft y n 


11 OM 




7 TEHORE POULET 


K7 


F V R 


IMM 




LANCELOT 


K7 


E J 


IMM 




ftTERMMUS 


M 


F J 


IMM 




tO ULTIMA ZONE 


KT 


A J 


MM 




11 MUM DM 


K7 


A J 


IMM 




nrnmontmn 


K7 


F J H 


MOO 




FISAITMNOH 


KT 


F J 


7JM 




SPECTRUM 










1 MATCH POBFF 


K7 


A i M 


mm 




03 BRUCE LEE 


K| 


A J M 


IBSM 




IXnCATAG 


K7 


A J M 


MM 




4PSYTHON 


K7 


A R J 


BOM 




SAMORC4DE 


to 


F J 


7S.Q0 




tZSKNJ 


K7 


A J 


rO.OO 




TALCMEML3T 

■Honrr 


K/ 


AYR 


mm 

11 OM 




0VO* 


K7 


F L 


(BOM 




10 3D MOVER 


K7 


F L 


IMM 




11 MTERCEPTEUR COBALT 


Kr- 


F J R 


MM 




IZMANOMDr GENUS 


K7 


TAR 


140.00 




11 MANAGER 


K7 


r n 


MOM 




TEXAS Tl/99 










ICrrJERT 


MOOULF 


A J M 


MOM 




ItKMMMOHXI 


MCIDU.F. 


A J M 


IMM 




) SUPER OFJAOH ATTACK 


MOUUIL 


A J M 


IMM 




1 LUNAR LANOER 


K7 


F J M 


MM 




imnvwr. DEMON 


Ml" FIX" 1 


A J M 


100M 




BAMOULAMCE 


MOOULF. 


A J M 


IMM 




1 mil mi 


MOTH 11 r. 


A J M 


100M 




THOMSON 

Snot spea tN-.ii Ik hi roiitrairo, tour, ror, too-cmls sonl 
compnliblcs W0S TOr" fivnc nictnnsion tf> K rl T07 TO 
1 ElM«MATOn K7 F J M ■ 1I0JW 




J PULSAR ■ 


K7 


f J M ■ 


140.00 




» STANLEY MM 


k; 


J M 


140M 




itA-nwiwwiw 


K7 


1 V "*' 


IMjM 




71IACHGAMMON 


K7 


It 


\?o.oo 




B TRIO. 444 


ItWWt 


F R ' 


MOOO 




ZX81 


K7 


F J 


M.oa 




jscorpmius 


K7 


F J 


73,00 




iMlincifirunconAii 


K7 


r b 


03.00 




i CROCK* 


Kl 


A J 


moo 




"~" 
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PUBLICITE 




H6 oui, de la publicity dans Hebdogiciel, nous rentrons dans le rang? Vous rigolez ou 



quo/? Les annonceurs que vous voyez la, Id, dessous se sont engage's a faire 5 % de 
remise aux abonnes de I'hebdo sur TOUT le magasin, y compris sur les ordinateurs, les 
fournltures et les peripheriques. C'est pas de la bonne publicite, ca, Madame? 




grand choix de logiciels 
librame speciahsee 

nos PRIX "SERVICE COMPRlS> 



X5K&S* 



v^ <b 






&&■" 



eco-informatique 

32 av. Julien Panchol 66000 PERPiGNAN Tel. . (68) 56.49.25 

perpignan 

► Un reseau de Professionnels (14 points de Vente). 

► Les meilleures marques. 

» L' etude de votre moyen de Financement. 

► Une programmation a la carte. 
. Un contrat de maintenance. 



Apple 



olivelli 



I.8.M. PC, XI, AT. 



VIDEO 107 INFORMATIQUE 

♦ ♦ ♦ <o> ♦ 

PLACE DES FETES 
75019 PARIS 

QL SINCLAIR DISPONIBLE 

COMMODORE, ORIC, AMSTRAD 

EXELVISION 

+ de 1000 logiciels toutes marques 
Tel. ; 201.46.09 



ARVERNE 
INFORMATIQUE 



. Vente de micro-ordinateurs familiaux a 
partir de 580 Francs dont SINCLAIR, AMS- 
TRAD, THOMSON, APPLE- 

. OFFRE SPECI ALE DE NOEL 1 5 % de remi- 
se pour toute commande passee avant le 
31 Decembre 84. 

ARVERNE INFORMATIQUE 

99 bis Avenue Max Dormoy 

63000 CLERMONT 

|73) 83.11.10 



VIDEO TROC 

VENTE - ECHANGE - DEPOT DE 

TOUT MATERIEL VIDEO ET MICRO- 

INFORMATIQUE - LOCATION DE JEUX 



NOS PRIX NEUFS ! 



COMMODORE 64 : 2690 F 
IMPRIMANTE C.64 : 1950 F 
MONITEUR COU1.EUR : 2410 F 
ATARI 800 XL .- 2190 F 
MSX CANON V 20 : 3049 F 



LECTEUR DISQVETTE : 2990 F 
MONITEUR ECRAN AMBRE : 9S0 F 
SINCLAIR SPECTRUM : 1 750 F 
ORIC ATMOS : 1950 F 



OUVERT DU LUNDI AU SAMED1 DE 10 H A 19 H 00 

89 bis. me de Churenlon 75012 PARIS 

lei.: 342.IS.54 

metro : gore de Lyon. Ledm Roltin 



aMitfatf araoaaa 



*F j& & 



^ / J? * ■* 



v V o O' ^f ^ v 
GRAND CHOIX DE LOGICIELS 



SILICONE VALLEE 



® 



NANTES 5 Rue Lekain Tel 89 7126 

87 Quai Fosse Tel 73 21 67 

ANGERS 7 Rue Boisnet Tel 88 13 98 



INFORMATIQUE 
2000 

le specialiste de la micro- 
informatique familiale 

Nombreuses marques disponibles, 
Logiciels, livres, conseils. 

LE TRIANGLE - Niveau bas 
(67) 92.92.17. 34000 Monlpellier 



VISMO 

Vente informatique service micro ordinateurs 

ORIC, SINCLAIR, AMSTRAD 

Monitcurs couleur et N/B. 

Tous peripheriques 

ASSEMBLEUR MONAMS 
Recommande par Hebdogiciel 



84. bd Beaumarchais 75011 PARIS 
12, bd de Keuilly 75012 PARIS 



ABONNES, 

si vous avez un probleme avec une de 

ces boutiques, vous savez a qui vous 

adresser? Je ne vous fais pas de des- 

sin? 



ANNONCEURS, 

vous avez envie de vous lancer dans 
I'aventure? Vous etes prets a consentir 
5 % de remise sur toute votre boutique 
pour la voir envahie de programmeurs 
fous? Ecrivez-nous, nous vous ferons 
payer tres Cher le centimetre car re de 
publicite! 



BLANC BERNARD 

Informatique Bureautique Lyon 

AMSTRAD - SINCLAIR - ORIC 

- SHARP - THOMSON - SANYO 

- LEANORD - LOGYSTEM 

9, rue Salomon Remach 69007 LYON 
Tel. : (7) 872.25.48 (pres foculles) 

Assistance technique. Logiciel. Formation 



HERCET 
MICR0-INF0RMATIQUE 



41, esplanade Ftechambautt 
(26) 82.57. 98 5(000 Reims 



ORIC - SINCLAIR - MEMOTECH 
MSX (sanyo, yeno, yamaha...) 

Librairie et nombreux logiciels. 



un SPECIALISTE, c'est PLUS SUR et.. 
... c'est toujours MOIIMS CHER ! 



MICROMETZ 



micro-inform.at.ique pour tous 



ordinateurs personnels & professionnels 



compatibles 
1 9, r, de la Fontaine WS 
57000 METZ Lfl 



Zenith - Toshiba 



Place dc In 
RApubliqufl 



p> 



«* 



a** 



la page pedagogique 
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LIM1TE s'adresse & des eleves du second cycle (1ere et terminale) et propose des exercices de calculs de limites de fractions 
rationnelles dans les cas ou il y a, comme disent les matheux et G. GRANPIERRE, forme indeterminee du type % ouoo/oo Vous 
avez dit technique ? 



Lutilisation est simple: il suffit de repondre aux 
questions posees (1 pour une limite finie, 2 pour 
une limite infinie, puis introduction des numera- 
teurs et dehominateurs en cas de limite finie. du 
signe en cas de limite infinie. 
En cas de reponse fausse. I'ordinateur donne une 
solution: il factorise les polyndmes, simplifie les 
quotients... et donne la reponse. 
Le programme comporte plusieurs niveaux de dif- 
ficultes (3 en tout). A un meme niveau, toutes les 
expressions F(x) sont de meme type... mais les 
apparences peuvent etres tres differentes ! On 
passe d"un niveau au niveau superieur en repon- 
dant correctement a deux questions de suite... 
Mais, une question en comporte deux, Tune si 'n' 
tend vers plus ou moins I'infini. En prenant Nl = 2 
ou Nl = 3 en ligne 100. on peut modifier le niveau 
de depart. En cas de tres mauvaise reponse, I'or- 
dinateur conseille de revoir le cours. En cas de 
tres bonne reponse (niveau 3 reussi) I'ordinateur 
conseille de passer a un autre exercice. 



Des stages sur 'Tutillsation pedagogique d'un micro-or- 
dinaleur de poche programmable en basic" sont organi- 
ses par les Etablissements Noblel, importateur de Casio. 
Ces stages gratuits sont reserve's aux enselgnants. 
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Limites de fonctions rationnelles sur TRS 80 



t, REM ■■•*.. 
6 REM 

s rem 

10 CLS 

..? DEFINT ■ 
-■8 Din n<i. 



+" 2"+CHR»<26) 
♦ -- 2"*CHR*<26> 



■ 3). DC I).0*(1 



.01*(1>, A2«(l 



:»b cosue 2*00 jgosub 2*00 igosub 2680 

130 ON Nl GOSUB 3888 .3880 .3288 

158 0-2 

1TB GOSUB 2488 :G0SUB 2600 

188 GOSUB 3488 

IBB tfHT L 

280 CLS J GOSUB 6800 

213 GOTO 118 

1988 REM CHOI* DCS COEFFICIENTS 

1310 X-PWD'7)-4:IF X-0 THEN 1810 

1828 K«8 

1838 ON Nl GOSUB 1208 . 1608 - 1208 

10*0 GOSUB 1688 = NU-S 

1BS0 IF NU-0 THEN 1830 

1060 -:=: 

1878 ON Nl GOSUB 1288 ■ 1688 . 1688 

18B8 GOSUB 1600 :DE«S 

1098 IF DE-0 THEN IB7B 

1188 GOSUB 1800 

1118 RETURN 

1288 REn RACINE SIMPLE 

1210 AI'K,2)-*BIQ1(K. 1 1-1 :01 (K. 8)— X 

1220 D'K)-1+RND'3> 

1238 FOR I-B TO D<X>-1 

124B :<;.-'-. r i-RNDMl ;■■■■. 

12S8 NEXT 

1268 IF 02fK,D(K>-l>-*8 THEN 1230 

1270 IF D'K)=4 THEN 1318 



2178 A2»(8)-02*<8)+">"i«2*M)=02»(l)*"> 

2130 m*<B)--(X-:IF % (8 THEN 01*O)-Aii 

2130 Rl »(0) =01 *(B)*STn»(-X>*")*:fll »(!)=! 

2288 IF NI-2 THEN AI»<B)-fll»(8)*CHR»(27 

*(8) 

2210 IF NI-3 THEN Ol »( 1 )-flt»{ 1>*CHR«<27 

2228 RETURN 

24B0 REn OFFICHAGE DE LA FRflCTIDN 

2618 CLS 

2420 PRINT327. "LIMITE5":tPRINTa256. "PCX)-*! 

2438 PRINTSTRINQ»(43.--">I 

2440 PRINT32Bl,A*<0>;:PRINT3393-H*(lJ: 

2458 RETURN 

26B0 RE» QUESTION POSEE 

2618 PRINT3522. "LIMITE DE F(X> OUOND X TEND VERS 

2620 IF D=l THEM PRINTXnGOTO 2668 

2638 S"2*RND<2)-3 

2640 IF S)B THEN 0»="*INF" ELSE D*-*-INF" 

2658 PRINTO*! 

2660 PRINT3640. "CETTE LIMITE EST-ELLE : 1>F]NIE 

2670 EC-690: GOSUB 4200 

2680 TF WftL^M)()l AND V0LfR»W>2' THEN "RINT3640. 



4150 RETURN 

4288 REM REPONSES NUMERIOUES 
4218 R»--" 
:01»d)-Al 4220 A»-INKEY»:IF fl«=" THEN 4228 



4238 


F fl*>--B- AND ft»<»-9" THEN 4298 


4248 


F («•--*- OR «••--") ONO «•-"" THEN 4298 


4238 


F R»-"" THEN 4228 




F OSC(0*>-13 THEN RETURN 


4278 


F OSC(0*)-e THEN R«-LEFT*{R«.LEN(R»>-l»lf 



2IIMCINIE ' 



C-l 

42BB GOTO 4228 

4298 R*-R**A*:EC-EC*liP»INTaEC, R»! iGOTO 4228 

4388 REM REPONSES NON NUHEH1DUES 

6318 R*-" 

4328 0»-INK£V*UF M-" THEN 4328 

6330 IF 0*)-"fl* AND MCT THEN 439E 

4348 if ro«-"*" on o»----) ond f 

4358 IF R«-*" THEN 4328 

4360 IF 0SC<0*)-13 THEN RETURN 

4378 IF OSCtfl«>-e THEN R»-LEFT*(R». LEN<R*»- 

C-l 



THEN 4398 



>::nOTO 6388 GOTO 4328 

2668 4398 R«-R»*0*!EC-EC*1 :PRINT3EC. A« ! :G0TO ' 

2630 RETURN 5880 PCM SOLUTION POUR X TEND VERS XB 

3080 PEM TEST REPONSE X TEND VERS X0 r NIVEAU 1 OU 2) 3810 PRINT" FOUX" 1 iCO-CO- 1 

3810 CH-VOL(R»> 5828 FOR 1-1 TD 1080:NEXT 

3820 IF (NI-3 AND CH-1 1 OR <<NI»1 OR NI-2> OND CH-21 THEN GOSUB 5838 CLS 



20fl : 



I I-DO 



1298 fl2(M 

138B NEXTI 

1318 RETURN 

14BB REM RACINE DOUBLE 



) PI •' 



DsNEXT 



1428 DOO«2*PNDf2) 

1430 FOR 1-8 TO D(K)-2 

144B R2'K. I>-RND<ll>-6 

1430 NEXT 

1468 IF 02(K.D(K>~2>-e THEN 1430 

1478 FOR I«DfX)-t TO 3 

1460 P2(K. 11-8 

1498 NEXT 

1588 RETURN 

1688 REM LE QUOTIENT S' ONNULE-T- IL 7 

1618 S-0 

1628 FOR 1-3 TO STEP -1 !S-S*X*fl2f K. 

1E30 RETURN 

1388 REM COEFFICIENTS DE <W» -OZ 

1318 FOR J*0 TO 1 

1928 FOR 1-0 TO 4 

1838 R'J. D-0 

1E48 NEXT 1. J 

1350 FOR J-0 TO 1 

1868 FOR 1-0 TO 3 

1978 FOR K-8 TO 2 

1B80 0' J, I*K>=OfJ, J*K>«ni(J,K)-ft2rJ, II 

1890 NEXT K. I, J 

1900 RETURN 

2BB0 REM CHaiNOGE DES POLYNOMES 

2010 FOR J-0 TO 1 

2028 d*'J)--" 

:-830 FOB 1-D'Jl TO STEP -I 

^848 IF (WJ,I>-0 THEN 2830 

2050 I* - R(J.1>>0 'HEN n»(J)=fl»l J>*-*" 

2860 o»( U=ft»f J)«STRs«nr J. ;>) 

2878 IF I OB THEN H*( J) -M' J)*" X* -CHR» < 27 ) "3TR»< I 

20B0 NEXT I.J 

2898 FOR J-0 TO I 

00 H2«»J)-"f" 

18 FOR 1-3 TO STEP -1 

28 IF «2<J. I>«8 THEN 2160 

30 IF R2'J.I)>0 THEN «2»< J) -fi2*( J)*"*" 

48 R2»'J)-02*'J)»6TR»(fl2(J. 

58 IF I()8 THEN R2«(J>-n2«f 

2168 NEXT I.J 



5880 :GOTO 

3030 PRIHT3716, 

3840 EC-731=G0SUB 47B0 :RN=VO'.(R« 

3850 PRINTa7B0. "DENOMINOTEUR 7"! 

3868 EC-793:G0SUB 4208 :RD-VOL(R« 

3070 IF RM*0EONU-RD THEN GOSUB ! 

3088 PRINT- CORRECT-: 

3090 FOR I-I TD 1B0BINEXT 

3108 RETURN 

3288 REM TEST REPONSE X TEND VERS X8 (NIVEOU 7> 

3218 CH-vrL<R«> 

3228 IF CH-1 THEN GOSUB 5888 :GOT0 3320 

323B PHINT371E. "QUEL SIGNE ?"l 

3248 EC-73l:DOSUB 6388 

3230 IF R»<>"** ONO R*(>"-" THEN PRINTS738. CHR«('.0> I :COT0 S230 

3268 IF »%-•*• THEN S-l ELSE S — 1 

3278 PRINT37B0. "DE DUEL COTE 7" I 

3280 EC-795IOOSUB 6300 

3290 IF H»O"DR0ITE- HND R*O"G0UCHE" THEN PRINT3795. CkR«<38> T IG 

DTO 327B 

3308 IF (R»-"GflUCHE" BND NU*DE.S<8> OR <R»-"DROITE" 0"JD NU*DE»9> 

0} THEN PRINT" CORRECT": ELSE GOSUB 5000 :GOT0 3328 

3318 FOR 1-1 TO 1880INEXT 

3328 RETURN 

3488 REM TEST REPONSE X TEND VERS L' 1NF1N! 

341B CH-VflL<R»> 

3428 ON SGN<D<8)-D(1)>*2 GOTO 3430 .3468 .3510 

3438 NU-8HF CH-2 THEN GOSUB 5688 :GOTO 3600 ELSE 3450 

3448 NU-FH0.O<B)>iD£-fl(l.D(mHF CH=2 THEN GOSUB 5408 :GOT0 360 

3438 PRINT37I6. "NUMERflTEUR ?• I 

3468 EC-73l:GOSUB 4280 iRN-VBLfR* 

3*70 PRINT3780, "DENOMINOTEUR ?"| 

3488 EC-793'DOSUB 4200 IRD-VAL^R*) 

3*90 IF RN-D£-NU*RD THEN PRINT" CORRECT- 

3588 GOSUB 3488 iGOTO 3688 

3310SG-HFOR I-I TO D(0HD( 1) :SC-SG'St NEX 



5840 PRINT312B, "F(K)-"I 

5030 PRINTSTRIN0«(43. ■•-">! 

5868 PRINT373.n*(0)i!PRINTa2G5.n«<l)i 

5078 PRINT338. "F<X> EST SOUS'! 

3080 PRINT3114. "LO FORME": 

5090 PRINT317B. "INDETERMINEE i"t 

00 PP.INT3242- " 8/0"! 

18 PRINT - 37B. "ON FACTORISE": 

28 PRlNTa434."PRRf: 

30 IF NI-2 THEN PRINTLEFT«(H1»<0) . LEN(fU*(0S ) 



i ELSE PftlNTrtl 



F RN-0 THEN 3498 



on. or i) 



'5G-SG*SGN<a<8. D<0) ) 



■ GOTO 3600 



CHR*<27>*STR1 



332B IF CH-1 THEN GOS 

3338 PRINT3716. "DUEL 

3348 EC-73I iCOSUB 4308 

3330 IF R«0"»" RND R»0"-" THEN PRINT373I . CHR«(3B) 1 IGOTO 3340 

3360 IF R»-"*" THEN G-l ELGE S^ — 1 

3370 IF SODS THEN GOSUB 3400 :GOT0 3600 

SDH F'fflNI" CORRECT"! 

3590 FOR I-I TO 10001NEXT 

3600 RETURN 

4B00 REM NIVEAU ATTEINT 

4010 ON C0*1 GOTO 4828 .4138 .4138 .6I3B .6070 

4028 REM PAS DE REPONSE CORRECTE 
,6830 IF Mt)l THEN Nt-NI-uGOTO 4I6B 

4040 CL5JPR(NT:Pl)TNT"V0TraE NIVEAU TST VPfllMCNT TRFS FAIBLr-"." 

4030 PRINTlPRlNT-QPPRENE/ VflTRE CCKJRfi PUTS "FVFNri f* VOIR " 

6068 END 

6B7B REM 0UOTRE HEPONSEC C0RRECTE5 

6080 IF MI03 THEN NI-NIHIGOTO 4168 

4898 CL";:PH[NT:PHINT'-VOllS MAITRir.EZ BIFN IA NOTION DF IIMITF. 

6188 PRINTlPRINT-JE NE PEUX PLUS VOUS APPRENOHE GHAND" rtin«-,F. " 
.6110 PRINT1PRINT-PAGSE7 Pl.UTOT UN OUTRE EXERCICE. " 

6120 END 

4138 REM AUTRES COG 



68 GOSUB 58BB 

50 PR!NT3393.fll*(0)tO2*<B)1 

60 PRINT35e3.fll*(l>!R2*(l)i 

70 PR1NT3452."-"! 

88 PRINTGTRING*(43. "-">! 

9B PPINT35G2. "PUIS ON"! 
5208 PRINT3G2G. "SIMPLIFIE »"l 
5218 GOSUB 5800 
5228 PRINT3713.O2*(0>! 
5230 PRINT3773. "-"iSTRIN0»<43. ---) i 
S240 IF NI-3 THEN 5300 ELSE PRINT3905. A2»< 1 > : 
3230 GOSUB 5808 

5268 PRINT3690. "SI X" !CHR»(94 H X : 
5270 PRINT3754." — ) "INUt 
5280 PRINT3946." — ) "iDGl 
5290 GOTO 5360 

5300 PRINTa90S. A1*(0) !A2«<1)I 
5310 PR I NT 3690, "SANS "IA1«(0>: 
5320 PRINTa734. "F<X) EST DU"! 
5330 PRINT3B1E. "SIGNE DE i" lSGN(NU*DE) ! 

5360 PRINTaB80. "Xl"iXi* F<X)"!CHR*(94>1: IF SON(NU*DE>-l THEN PRI 
NT"»INF"! ELSE PR1NT--INF-1 

5330 PRINT3944. "X <":X:" F( X) " !CHR«(94H ! IF SGN(NU*DC)-1 THEN PRI 
NT--1NF-SELSE PRINT"»INF"! 
5360 GOSUB 3800 
S370 RETURN 

5400 REM SOLUTION POUR X TEND VERS L' IMFINI 
5410 PRINT'' FOUX"! JC0~C0-1 
5420 FOR 1-1 TO 1B08INEXT 
5430 FOR 1-522 TO B32 STEP 64 
5440 PRINT3I,STRIND«(64, 32) I 
S6S0 NEXT 

3460 PRINT33I2. "LORSOUE X TEND VERS "10*1 " UN POLVNUnE A MEME LI 
MITE DUE SON" I 

I NT 3576, "TERME DE PLUS >«HJ1 DEC HE. DONE F(X1 A HEME t IMHE 



■lCHR»»27i!STR«(DII) 



AI6i 



OUEi' 
54B0 GOSUB 5800 
3490 FOR 1-0 TO 1 
5300 PR[NT3724*192»I. A'I.D'1) 
5318 NEXT I 
5320 PRINTa78C.STOING»n0. "-">r 
5530 PRINT- QUI TEND VERS «"l 
3340 IF 0(01 (D<1) THEN PRIN1NUI (GOTO 5570 
3350 IF D(0>-DM> THEN PBINTa732. NU: I PRINTaG80. DE! IPRINT3GI3. ' 

"1 rOOTO 3378 

3360 IF SO>0 THEN PRI NT" tlNF" 1 CLfiE PRINT--INF" I 

5570 G05UD 5880 

53B0 CLS 

3590 RETURN 

5D0B PRINT3960. ■ 

3S18 0*-lNKrv«I 

5820 RETURN 
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Formation a I'assembleur 



COURS D'ASSEMBLEUR 



Oepuls plusieurs semaines 
deja, vous pouvez trouver 
dans nos colonnes un cours 

d'assembleur decompose en 
deux parties essentielles 
(I'une theorique, I'autre prati- 
que). 

Cette semaine. le cours prati- 
que conceme a nouveau ie 
6502 de I'Apple. Le prochain 
numero concernera pour la se- 
conde fois le 6809 du TO 7 et 
du TO 7-70. 

Jusqu'a present, les cours sui- 
vants ont ete publies: 
N* 55— 2X81 



N*S6— ZX81 

N"57— ORIC 1. ATMOS 

N'58-. APPLE 

N" 59 — T07. T07 70 

N* 60 — COMMODORE 64 

N"61 — ZX81 

N"62— ORIC 1, ATMOS 

Michael THEVENET 
P.S. Pour tous ceux qui desi- 
rent acquerir les cours man- 
quants, vous pouvez comman- 
der une photocopie de ceux-ci 
a I'hebdo. en precisant claire- 
ment lesquels vous interes- 
sent. N'oubliez pas de joindre 
une enveloppe timbree et libel- 
lee a vos nom et adresse! 



Comment est representee [infor- 
mation dans un ordinateur 

2. Representation des don- 
nees en machine 

Un autre exemple devrait 
eclaircir definitivement votre 
comprehension de !a normali- 
sation des nombres fraction- 
naires. 

541.23 se normalise en 
0.541.23 - 10 i 2. Nous pou- 
vons done ecrire que la man- 
tisse M ■ 541.23 et que lex- 
posant E = + 2- Nous 
pouvons done enfin represen- 
ter notre exemple sous la 
forme M * E. 

La normalisation que nous ef- 
fectuons consiste 1 a eliminer 
les zeros superflus (e'est-a- 
dire les zeros presents imme- 
diatement a droite de la vir- 
gule) ou a depfacer les nom- 
bres de la gauche vers la 
droite de la virgule et d'ajuster 
I'exposant en lonction du nom- 
bre de zeros ou du nombre de 
decalages accomplis. Cette 
normalisation possede une 
propriete que nous nous 
devons de souligner. En eftet. 
une fois I operation de normali- 
sation eftectuee, nous avons 
pour resultat un nombre sous 
la forme O.xxxx * E. La man- 
tisse (egale a xxxx) est done 
TOUJOURS comprise entre 
et 1 (au sens strict du ferme). 

Nous pouvons resumer cette 
propriete par les formules sui- 
vantes: 

0.1 < = M < 1 ou 10 
f (- 1) <= M< 10 I 1 

Nous allons maintenant voir 
comment nous transfererons 
le modele theorique dans un 
ordinaleur. Tout d'abord. nous 
allons nous fixer un certain 
nombre de regies. La mantisse 
sera loujours stockee sous 
forme positive, un bit etant re- 
serve pour le signe de celle-ci. 
L'exposant sera lui aussi me- 
morise en valeur absolue, un 
autre bit etant assigne pour le 
signe de celui-ci. L'exposant 
est toujours stocke avant la 
mantisse. le signe de chaeun 
etant memorise devant la par- 
tie qu'il signe. Enfin la repre- 
sentation en virgule flottante 
des nombres fractionnaires se 
pratique d'une maniere stan- 
dard sur un format fixe de 
trente deux bits. 

Voici la representation stan- 
dard trente deux bits des nom- 
bres fractionnaires en virgule 
llottante: 



La decomposition des (rente 
deux bits se fait done de la 

maniere suivante: 

-Exposant: bits a 7 dont bit 
egal bit de signe 
-Manlisse: bits 8 a 31 don! bit 
8 egal bit de signe. 

Complo tenu du type de repre- 
sentation choisi. il est ovident 
que nous codons exposant ot 




mantisse grace a la methode 
de representation en comple- 
ment a deux. L'exposant etant 
code sur un octet selon le 
complement a deux, les va- 
leurs minimale et maximale de 
l'exposant sont done: 2 i 127 
et2i(- 128). 

Cette representation est la 
plus couramment utilisee car 
elle autorise la manipulation 
de grands nombres avec une 
marge d'erreur faible. une ra- 
pidite d'execution correcte et 
un encombrement memoire re- 
lativement restreint. Ce type 
de representation n'est pas 
unique et peut faire appel a 
trois. quatre ou plus doctets. 
Malgre tout la solution presen- 
tee sur quatre octets est 
le meilleur compromis des 
quatre facteurs evoques plus 
haul 

Nous sommes, au stade actuel 
de notre etude, capables de 
representor les nombres sous 
toutes leurs formes. De rentier 
en binaire ou en decimal code 
binaire jusqu'au nombre frac- 
tionnaire. nous avons etudie 
sa representation en machine. 

II nous reste encore un en- 
semble de caracteres a exami- 
ner avant de considerer le 
chapitre de la representation 
interne des donnees comme 
clos. En effet. lorsque vous 
realisez un programme, vous 
utilise? les caracteres alpha- 
betiques pour envoyer des 
messages a I'utilisateur. Nous 
devons done maintenant nous 
pencher sur le probleme du 
codage des donnees alphanu- 
meriques dans le micro-pro- 
cesseur. 



Nous abordons le seul do- 
mains de I'informatique oil un 
standard existe et est applique 
{a une exception pres: IBM ne 
■'utilise pas). En effet. le co- 
dage des caracteres se realise 
sans difficulty majeure. Une 
representation des caracteres 
sur huit bits a ete universelle- 
ment choisie et appelee code 
ASCII (la variante creee et uti- 
lisee par IBM et les compati- 
bles se denomme EBCDIC). 
ASCII signifie en francais 
"Code Standard Americain 
pour I'Echange d'lnforma- 
tions". 

Si nous voulions creer ce 
code, nous devrions conside- 
rer tout d'abord le nombre mi- 
nimal de caracteres a coder. 
L'alphabel compte vingl six 
lettres et nous devons repre- 
sentor majuscules et minuscu- 
les ce qui donne deja un total 
de cinquante deux caracteres. 
Nous avons aussi dix chiffres, 
ce qui monte a soixante doux 
le nombres de caracteres a 
coder. Nous estimorons que 
noire micro-processour ne ne- 
cesslto pas plus de vlngt ca- 
racteres speciaux (tots le re- 
tour a la ligno, I'espace, les 
parentheses, le saut de 
ligne...). Nous aurons done un 
total de qualre-vingt doux ca- 
racteros a coder. Nous savons 



que sur sept bits nous pou- 
vons obtenir cent vingt huit 
codes differents. Nous allons 
done utiliser les bits zero a 
sept pour coder I'ensemble 
des caracteres alphanumeri- 
ques. 

Comme nous ne pouvons re- 
grouper simplement les bits 
autrement que par huit, le bit 
sept servira de BIT DE PA- 
RITE. Cette utilisation du hui- 
tieme bit n'est pas systemati- 
que. Elle est generaiement 
utilisee entre le micro-proces- 
seur et un terminal pour veri- 
fier qu'au cours d'une trans- 
mission, aucun bit n'a ate 
change accidentellement. 

Comment fonctionne le test de 
parite ? Nous allons regarder 
brievement le principe de ce 
test. Nous comptons le nom- 
bre de uns presents sur les 
sept premiers bits (bits neces- 
saires au codage des caracte- 
res). Le test peut s'effectuer 
de 2 manieres. qui toutes deux 
utilisent un principe similaire. 

SOLUTION DES EXERCICES 

EX 10 representation DCB 
compact des nombres 

a. 42= 0100.0010 

b. 99 = 1001.1001 

C. 1224 = 0001.0010.OOW.0100 

EX il les representations bi- 
naire suivantes sont-elles des 
conversions DCB? 

a. 0000. 10W n'est pas une re- 
presentation DCB, En effet. le 
premier quartet nous donne bien 
en decimal. Par contre le 
deuxieme quartet ne donne pas 
de decimal, faisant partie des 
codes Inutilis6s en conversion 
DCB. 

b. 01 10.1100 n'est pas une re- 
presentation DCB. Premier quar- 
tet: 6: deuxieme quartet: code 
mulilise en DCB. 

EX 12 representation BCD et bi- 
naire des nombres 

a. 12. 735 (decimal) 

— -5 f 1 2 73 5 (BCD) 
xxxx.0 10 1.0000.0001. 
0010.011 1.001 1.0WI 
(binaire) 

b. -4327 (decimal) 

4-4327 (BCD) 
Ot 00.000 1. 01 OO.OO1 1.00 10.01 1 1 
(binaire) 

EX 13 '5555'. Combien de bits 
en... 

a. DCB: 4 chiffres, le signe. 
nombre de chiffres. 6 informa- 
tions occupant chacune un quar- 
tet It faut done trois octets, soil 
vingt quatre bits 

b binaire: le nombre d'informa- 
lions a stocker est idontique, il 
taudra done aussi vingt quatre 
bits. 

c. comptomont a doux: 5555 ne- 
cessito seize bits. 

5555 (decimal) 

0001.0W1 tot LOOti (blnaln 

en complement a doux). 



INTRO A L'ASSEMBLEUR PRATIQUE 

Langage machine. . . sur apple 




La derniere fois. nous nous 
sommes promenes dans la 
memoire. Pour cela. nous 
avons tape CALL - 151 suivi 
de RETURN, ce qui nous per- 
mettait dentrer dans le moni- 
teur. Desormais et a partir de 
maintenant tout de suite, je ne 
repreciserai plus la facon d'y 
entrer. car je pense que cela 
ne vous est pas trop difficile a 
memoriser. 

Nous avons sur le tableau 1 le 
listing de la memoire allant de 
S E0OO a S E02B. Comme je 
1'ai montre la fois precedente. 
chers petits amis, la troisieme 
colonne est une representation 
en assembleur des codes 
hexadecimaux de la deuxieme 
colonne. 

TABLEAU 1 



E0OO- 4C 26 Fl J»» »F128 

£003- 4C 3C 04 ■»*> «M3C 

too*- B« 20 BIT f420 

E019- Bl 00 LDft (»00>.> 

E00A- *0 05 BCC «0I1 

C00C- 20 71} EO JS» »E070 

eoof- *o ob ecc «eoic 

E01I- «* *<V< 

E0I7- 20 Bl 00 J>*> *00B1 

E0I5- »0 FB BCC »E0I2 

E017- 20 TO EO JPI •EO.-R 

EOIA- BO F« OC3 «E012 

E01C- C» 24 O* t+2* 

E01E- 00 04 BNE «E02« 

E020- *» FF LDA («FF 

E022- 85 II 9TA Oil 

E024- 00 10 IM tEOJ* 

E074- C» 23 CMP (•» 

EOZB- DO 13 She *E03O 

ffl.V.- rt^ 14 LOA 014 



Pour etre plus clair. car jo 
sens que vous vous embrouil- 
lez, je parlerai de la troisieme 
colonne en tant que listing as- 
sembleur. Or. ce listing as- 
sembleur est lui - meme 
compose de deux colonnes 
(un peu plus et on construit le 
Parthenon) dont la premiere 
contient loujours trois lettres. 
elles-memes appelees code 
mnemomque et la deuxieme 
contient les operandes, e'est a 
dire les adresses affeclees par 
les mnemoniqucs qui les pre- 
cedent. 

Nous allons vite ecrire un petit 
exemple car |e sens qu'une ir- 
resistible envie de bailler vous 
tourmente. Entrons done dans 
le moniteur (je pense quo vous 
savez comment). La petite 
etoile et le curseur clignotant 
vous indiquent que I'ordinateur 
attend un ordre: nous allons 
done commencer par un pro- 
gramme completement idiot et 
denue d'interet. A la fin de 
chaque ligne. ne jamais ou- 
blier de taper RETURN. 

300:00 

301:A9 01 8D00 03 60 

Tapez ensuito 300L et vous 
devez voir ce qui suit sur votre 
ecran (si ce n'est pas te cas, 
ou bien je devrais aller suivre 
des cours. ou bien vous vous 
etes plante quelque part et 
notez quo le signe C corres- 
pond au signe S en clavier 
americain). Co qui suit notre 
programmo no nous intfirosse 
pas pour le moment, jo ne I'in- 
dique done pas ci-dossous. 

300- 00 

301- A9 0t LDA C$01 
303- 8D00 03 STA $300 
306- 60 RTS 



Ce programme ne fait rien 
d'autre que de ranger a 
I'adresse $ 300 le chirms 01. 
Pour etre surs de notre resul- 
tat. nous avons d'abord stocke 
en commande directe un 00 a 
cette adresse (300:00). Pour 
faire tourner le programme, 
tapez 300G et en retapant 
300L, vous pourrez vous aper- 
cevoir que I'adresse $ 300 a 
effectivement change. Genial, 
non? 

SALADE DU CHEF 

Le code A9 en hexa corres- 
pond au mnemonique LDA. et 
STA est la traduction du code 
80. LDA veut dire en ciair: 
LoaD Accumulator ou en fran- 
cais: charger l'accumulateur 
avec la valeur suivante. L'ac- 
cumulateur est un registre (de 
son doux nom). avec laide du- 
quel s'erfectuent pas mal de 
transfers de donnees ou 
d'Oporations comme I'addition 
et la soustraction. On y met un 
nombre compris entre et 255 
et on peut alors en laire ce 
qu'on veut (saut le donner a sa 
grand-mere comme cadeau de 
Noel). Dans notre cas, l'accu- 
mulateur nous a servi d'inter- 
mediaire pour ranger una va- 
leur a I'adresse $ 300. Cette 
valeur etait $ 01. nous aurions 
tres bien pu en prendre uno 
autre. 

Le dernior mnemonique (RTS) 
est une instruction de refour 
de sous-programme. Cette ins- 
truction nous servira beau- 
coup. Sans elle, on ne peut en 
general pas reprendro le 
controle de la machine, ce qui 
est assez genant. 
Nous allons traduire on fran- 
cais ce quo nous venons d'ex- 
pltquer en suivant pas a pas lo 
deroulement du programme. 

LDA C $ 01: Charger to regis- 
tre accumulateur avec la va- 
leur $01 

STA $ 300: Ranger le contonu 
de l'accumulateur a I'adresse 
$300 
RTS: Retour a I'utilisateur 

Nous reparlerons plus tard do 
la signification du signo C qui 
se trouve jusle apros ('instruc- 
tion LDA. Prenez d'abord le 
femps de prendre une lasse 
de the accompagmie do mado- 
leines et cogitez tout cela en 
ecoutanl Brahms. 

PLUS 
DESTRUCTIONS 

Le mnemonique LDA nest pas 
tout seul. II en existe deux 
autres qui Iransportent des 
donnees: LDX et LDY, Leurs 
correspondences en hexa sont 
respectivement A2 et AO ot los 
instructions do rangemont STX 
et STY. Dans notre pro- 
gramme, nous pouvons done 
remplacer les deux premieres 
instructions par ces nouvellcs 
venues et nous obtiendrons le 
meme resullat. 

Nous avons vu quo nous pou- 
vions charger un registre avec 
une valour quelconque 
comprise entre et 255 ($ 
FF). Cependant, nous pouvons 
aussi mettre dans CO registre 
une valeur contenue dans une 
adresse specifies. Par exom- 
ple. si jo veux charger lo regis- 
tre A avec la valeur contonue 
a I'adresse numoro $ 30. il mo 
sulfit d'ecrire LDA $ 30. snns 
fairo preedder lo signe $ du 
signo C . Cost Id quo nous 
nous apercovons do I'utilito de 
ce signo, qui nous pormet din- 
diquor a I ordinaleur quel typo 
destruction nous dosirons uti- 
liser. Cos doux facons d'aglr 
sont nppoloos modo d'adres- 
sago. Dons notro programmo. 
nous avions utilise to modo im- 



mediat. et dans t'exemp**. le 
mode absoHi. H existe d autres 
modes d'adressages. mats je 
pense que vous devez d'abord 
ingurgiter tout ceta avant de 
vous enf oncer dans les profon- 
deurs mod alos (quette poe- 
sie!). 

Vo«ci un deuxieme programme 
commencanl a r adresse $ 300 
et utilisant »es instruct»ons oue 
nous venons de deenre. qui 
range aux adresses $ 2000 a $ 
2002 les valeurs 1 . 2 et 3 et en 
$ 2003 la vateur contenue a 
I'adresse $ 21 (je sais. mes 
programmes sort d'un pas- 
sionnant...). 

300:A9 01 8D 00 20 A9 02 8D 
01 20 A9 03 8D 02 20 < RE- 
TURN > 

Le programme en memoire 
doit ressembler a ceci: 



300- A9 01 
302-8D00 20 
305-A2 02 
307-8E 01 20 
30A-A0 03 
30C-8C 02 20 
30F-AS 30 
310-8D03 20 
313-60 



LDA C $01 
STA $2000 
LDX C $ 02 
STX $ 2001 
LDY C $ 03 
STY $2002 
LDA $21 
STA S 2003 
RTS 



SI vous tapez $ 20O0L apros 
I'execution du programme, 
vous remarqueroz qu'il y a of- 
fectivement les valeurs I. 2 ot 
3 en J 2000. $ 2001 ot $ 2002 
et qu'en $ 2003 nous avons le 
nombro qui se trouve a 
1'adrosse $ 21. Les codes 
hoxadecimnux corrospondants 
aux differents types de modes 
d'adressages different bien 
entondu selon lo modo uliliso 



REGISTRE D'ETAT 

En plus des registres quo nous 
venons do dftcrire, il oxisto un 
quatriome roglstre qui n'est 
pas utilise pour ranger dos 
nombres mais pour indiquor 
dans quel etat (d'ou le nom) se 
trouvent divers bits (sils sont 
a 1 ou a 0) qui nous donne- 
rons do procicux ronsoigne- 
ments sur lo deroulement du 
programme. 

En effet. ce registro contient 8 
bits (comme tous les autros re- 
gistres d'aillours) dont sept 
sont utilises. Comme vous 
pouvez le voir sur lo tableau 2. 
its sont numerates do a 7 de 
droito a gauche 



TABLEAU 2 



7 6 5 4 3 2 1 



Le bit 1 (nppole bit do zoro ou 
bit Z) est celui qui nous into- 
resse en promier. Ce sorn un 
dos plus utilises dans nos pro- 
chains programmes. II est mis 
a un par lo microprocessor 
lorsque lo resullat d'uno ope- 
ration n'ost pns ogal a zoro, ot 
est mis a zero dans lo cas 
conlratre. Mnis nttonlion, j'en- 
tonds par resultat d'operation 
le fait que: 

1: lo chiffro rosultnnt do I'opo- 
ration soil 

2: I'operation donne un rosul- 
tat vrai Par oxomplo. si vous 
comparoz doux chiflres qui 
sont ognux. lo rosultat do In 
comparnison soia vrai. done lo 
bit 1 sera mis a zero. 
Cocl otant expose, jo vain altor 
ouvrir mos cadonux do Noel 
(morci chor Rodiiclour en 
Chot) el hibornor jusqu'au pro- 
chain cours. 



'la page pedagogique 



la page pedago^. 



17 



LES SCHPOUMPFS 



SPECTRuiim 



Eh out ! lis sont de retour. Mais Garbamel avec son 
chat Azriel est plus mechant que jamais. En effet, il a 
enleve la schpoumpfette et la retient dans son horrible 
manoir. 



suite duN 62 



Emmanuel PENZL 



588*1^5 



LIGNE: 



EN VIDEO XNU 
CflRRCTERES: 



l> DIFICILE 

2> MOYEN 

3> FACILE 




567 8EEP .91,35: PRIKT RT 0,9; 
INVERSE 1,*;" " 
576 NEXT i 
372 PRINT RT J,i; PAPER 6; " 

573 LET 5>s*3B: QO TO 558 

575 CLS 

576 PRINT AT 0,0, INUERSE 1; "EN 
ERGIE- ":s;flT 9, 14; "TABLEAU* " ; t 

b;" ulE f, ;''S" AND vi«>i;"« ";vi» 

577 LET b» = " ": LET X -0 

578 FOR ibIO TO 21: PRINT AT i, 
0; PAPER 5,l$;RT i,24; PAPER *; b 
<: NEXT i 

579 DEEP .1.4.0: PRINT PAPER 8;A 
T y-l,x; INK 7;"a*";RT y.x; INK 

530 IF y<=19 THEN LET j-INT (RN 

581 IF y>19 THEN LET j -y 

582 FOR i-18 TO STEP -2 

583 IF X>21 THEN GO TO 531 

584 PRINT AT j,i; INK 2; PAPER 

e.-'S»T«u 

585 BEEP .05,-30 

586 GO SUB 330 

587 IF (i-x OR i = 
MEN PRINT RT j,i ; 
;" "; RT u-l,x; "' ";AT y.x; 

INK 2;" '■: BEEP 1,-30: PRINT fl 
T 0.9; INVERSE l;*;" ": GO TO 10 
00 

58B PRINT AT 0,9; INUER5E l;s;" 

"; NEXT i 

589 PRINT RT j,0; PAPER 8;" 

590 LET s=s+30: GO TO 580 

591 PRINT AT y , xj PAPER 8;" "; 
RT y-l,x, " ■': LET y=17 

592 FOR X=22 TO 29 

593 PRINT RT y-3,X; INK 7;" m " 
;RT y,x;j»;RT y-2,x; INK 1; " W" 
; AT y-l,x; '" C* " 

594 BEEP .01733: PRINT RT 0,9; 
INUERSE l;i;" ": NEXT x 

595 IF s>=1500+ (15004round) THE 
N PRINT AT 10,10; FLR3M l; "BONUS 

!-: FOR i -S TO 3*2 STEP 10: SEE 
P .005,0: PRINT RT , 0; "ENERGIES 

*;i: NEXT i: LET S = i: REM 
— < Tableau 5 > 

596 CLS : RESTORE 597: FOR 4-1 
TO 9: RERO 4 J : FOR t=0 TO 7: RER 
D b: POKE USR a*+t,b: NEXT t: BE 
EP .01,30: NEXT 4 

597 DATA " t " ,0 ,0, B, 12 , 30 , 55 , 127 
, 127 , ■ l " . , , , , , , 235 , 256 , "»" 
,0,0,0,120,132,4, 132,246 

598 DATA "n " , 63 , 1 , 3 , 15 , 255, 112 , 
0,0, "0" , 192, 192, 192,224,224,240, 
120, 56, "P", 0,0, 16, 48, 120, 236,254 
,254 

599 DATA "q" , , 0, , 30 , 33,32 ,33 , 
31 , " r " , 252 , 128 , 192 , 240 , 255 , 14 , , 
0,"S ",3,3, 3, 7, 7, 15, 30, 28 

601 LET I4b=6: CLS : FOR i-16 T 
21: PRINT RT i ,0; PRPER 4;t«: 
NEXT i 

602 LET x»0: LET y-17: LET j* = " 



X»xT72nKCVJ»"8") 

"7" THEN PRINT RT 



NKEYla-7 



LET 



603 PRINT RT 0,0; INUERSE 1; "EN 
ERGI£= ■;5;flT 0,14; "TRBLERU- " ; t 
ab;" UIE";"5" AND viol;"* ";vi* 

604 PPINT RT 14,0; INK 7;"J|";r 
T 17,0; "H L '-;AT 15,0; INK X;^9f" , 
RT 16,0; ! Tfc A 

605 FOR »%26 TO STEP -2: LET 
y=17 

606 LET j»a" ft" 

607 PRINT RT I?,i; INK " 
";RT 16, » 
508 LET x „ . 
809 IF INKEYj 

*ls: 'LET j| 

510 PRINT AT y-3,x; INK 7; " 
;RT y,x;;»;RT y-2,x, INK 1;" ■#■ 
;RT y-i,x; ( ' |fr ,at y-5,x;" *J 
t y -4 , x ; " ir 

611 IF y«17 AND fi-3-x OR i-2- 
) THEN GO TO 630 

612 IF x>»25 THEN 00 TO 626 
513 BEEP .01,33: NEXT i 

614 LET S*6+S0: PRINT RT 0,9; 
NUERSE l;s 

516 FOR i=0 TO 26 STEP 2: LET 
-17 

816 LET ji«" ft" 

517 PRINT AT 17, i; INK 2;" 8" 
•":RT 16. i ; - JJOKV- 

618 LET x-x+ (INKEYJ*"8") 



.ti 



if'' **" 
RT y-3,x; 



:h- 



INK 7; ' 
. INK 1; " 

y-5,x;" 



(i+3»x OR i + 4-x 



;RT y.x; j»; 
;RT «-l,x; f - 
T y-i,x; " 

631 IF y-17 RNO 
THEN QO TO 630 

622 IF x>»2S THEN GO TO 626 

623 eEEP .91,33: NEXT i 

624 LET *«S+50: PRINT RT 0,9; 
NUERSE l;»: CO TO 605 

626 PRINT RT 17, i;" " ; AT 

627 GO TO 649 

630 PRINT RT 0,9; INUERSE 
PRINT AT y-3,x; INK 2;" <*",w 

-a.xj" <*v-',fl+ y-i,x," «v"pi 

; " ft": BEEP 1,-24: PRINT ™ 

,x, " 7 RT y -2 , x ; " " ; RT 

; " ",flT y.x;" " : GO TO i«»< 

640 FOR X-X TO 29 

643 PRINT AT y-3,x; INK 7;" m " 
;RT y,x,ji,RT y-2,x; INK 1;" ^' , 
;RT y-l,x;'' |(b";RT y-5,x;" -,f 

647 BEEP .01,30 

650 NEXT X 

651 RESTORE 652: FOR a-1 TO 3: 






6, 126,60 
653 DATA 



UUUU" 

656 LET 

657 FOR 
" PRPER 



PER 



,60,24,24,60,126,12 
,16,16, 16,16,16,18, 

•■U",256, 18,16,16,255,1 

S 

: LET «*«"UUUUUUUUUUUUU 

b«-"| 

i>18 TO 21: PRINT RT i , 
, r-MF-t« 4; t»; NEXT i 

668 FOR i «0 TO 10: PRINT RT i , 1 
b; INK 7; PAPER 2;6«: NEXT i 

661 FOR i=ll TO 17: PRINT RT i, 
15; PAPER 8; INK 7;b«: NEXT i 

663 PRINT RT 0,0; INUERSE 1; "EN 
ERGIE* "jftiflT 0,14; "TABLEAU* "it 
ab;" VIE", "S" AND vit>l;"» "JVil 

665 PRINT RT 14,0; INK 7;"4»_";fl 
T 17,0;"ftj-;AT 15,0; INK i;"!*''; 
RT 16,0; Tfc'* 

666 FOR X«0 TO 29 

667 LET y=17: LET . . 

669 PRINT RT y-3,x; PAPE^ 
K 7;" *";RT y,x;j*;RT y-2,x; ±n 
K l;" ••";AT y-l,x; " » r 

670 IF X»12 AND INKEY»="0" THEN 
BEEP .1,-40: FOR i*ll TO 17: PR 

INT RT i,15; PAPER 0;" " : NEXT i 
: GO TO 673 

671 IF X=12 AND INKEY»<>"0" THE 
N FOR i»l TO 13 STEP 2: BEEP .01 
,(41-i): PRINT RT i,X+2; INK 4;" 

#";RT i-2,X+2;" ": NEXT i: GO TO 
675 

673 BEEP .01,35: PRINT RT 0,9; 
inuerse l;s; " '*: NEXT x 

674 GO TO 676 

675 BEEP 1,40: PRINT RT 0,9; IN 
UERSE lift: PRINT RT y-3,x; INK 4 
;'l#f"iA r y-2.x;" ♦ K ;RT y-l,x;" 

*» ,RT y,x;" ft": BEEP 1,-24. P 
RINT rt y-4,x;^ ";RT u-3,x;" 

■■;RT y-3,x;" ";flr y-l,x;" 
; AT y ,x; " " : CO TO 1000 

680 PAPER 0: INK 7: CLS 

681 LET iab»7 

699 LET »$«'*UUUUUUUUUUUUUUUUUUU 
UUUUUUUUUUUUU" 

700 REM < Tabltau 7 > 

701 FOR i »0 TO 13: PRINT RT i,0 
; INK 7i PRPER 2; »«: NEXT i 

702 FOR i=19 TO 21: PRINT AT i, 
0, PAPER 3; " 

: NEXT i 

703 PRINT AT 21 , 0; "ENERGIE- 
;RT 21, 14; "TABLEAU- ";tab;'" " 
; "5" AND vie>i; "> "; via 

703 PRINT AT 15,0; INK 7;"J»";A 
T 18,0; "lL-';flT 16,0; INK i;"V*; 
RT 17,0;Tfc-' 

706 PRINT RT 19,5; INK 6 jJ'KJW ; 
RT 19,13^jrSR",AT 19 ,31; "fadP; RT 

707 LET X»0: LET j»-" ft " ; LET 
y=18 

798 FOR Z-l TO 5 

709 IF x<5 THEN LET j-INT (RNDt 
3) -1 */. 

710 IF X>»5 THEN LET j-INT (RNO 
*3) *x-l 

711 FOR i-1 TO 14 

712 PRINT RT i-l,j; PAPER 2; "U" 
iRT i,j; INK 6; PAPER 8; "#' 

713 IF INKEY« = "8" THEN LC7 
1: PRINT RT 15,x-l; INK 7; 

RT I8,x-i;" ft";RT lft.x-i; 

" ♦",RT 17,x-l;" W' 

714 IF INKEY|-"6" RNO X >0 THEN 
LET X-X-l: PRINT AT 15 , X ; INK 

■f "i- n - ^' X i7'"x a "k fl " ' 

' ■' %t ,xT.i 



UIE" 



715 IF RTTR (y+i,X 

PRINT 



"xflR'i 



'l6,xT"lNK 
THEN PRIN 



T AT 21,9;i: PRINT JT Jl-3,x; INK 

4fe''A* V.Xi V, K"^ 'BEEP' 1,-tl: 'PRI 

NY RT y-3,x;^ ";RT y-2,x;" 

; RT y-i,x;" ";RT y.x;" •*: 00 



£090 

717 BEEP . 

718 NEXT I 

719 IF J-X OR j- 
AT 21,91*: PRINT i 



X*l THEN PRINT 



T 21,9,»: PRINT AT J(-3'X; INK 3 
ift y?X, H ji" X '8CtP'lT-ll4: 'PRlff 

RT y-4,x;^ ";RT y-3,x;" ";fl 
--a,x; " •; Rt y-I,x 

" -0 l0«0 
: PRINT 



",AT" 
- GO TO 
20 LET ft-s+39: 



■■;«+" 



INT RT 14, j;" 



1 NEXT 2 
722 PRINT RT 19,0; PRPER 3;t» 



725 PRINT RT y-3,X; INK 7;" 4* " 

.01,30 

726 NEXT X 

727 PRINT RT 

728 GO TO^70O 

729 IF (X+8) >29 THEN 00 TO 760 

760 FOR X-X TO 29 

761 PRINT RT y-3,x-l; INK 7J" J 
*";RT y-a.x-1; INK 1; ft ♦";RT y- 
l,x-l;" JU",RT y,x-l; ink 7;" & 

■: BEEP ?01,3O 

762 NEXT X 

770 RESTORE 771: FOR 4-1 TO 11: 



BEEP . 1 
,23,47,29,46,47,28, 
,232,244,184,116,24 



?k"i s 35i«iflF7«t 



772 DRTA " I 
4,56,224.192 



773 DRTfl "■",1,3,7,7,7,7,3,15 

774 DATA "n " , 128 , 192 , 224 , 224 , 22 
4,224, 192,240 

775 DATA "O " , , 224 , 246 , 252 , 252 , 
254,254,254 

776 DATA "P " , , 15 , 31 , 31 , 29 ,3 , 7 , 
15 



,7,7,101,127,63,8,7 

'779 DRTfl ■•%■ , 60, 126, 255, 255. 255 
,255,125,80 

760 DRTA "t" ,0,54, 127, 127, 127,6 
2,28,8 

781 DATA "U" , 14, 14, 14, 14, 127,25 
4,255,127 

785 PAPER 0: BORDER 0: INK 7: C 
LS 

786 LET tab-8 
m REM ----< T4bL.au 6 >- — 



■ST M- 



802 FOR i-7 TO 15 STEP 8: PRINT 
RT i,0; INK 2; St: NEXT i 

803 LET *% = •• lT 

80S LET X-21 

807 FOR > «x TO X-3 STEP -1: PRI 
NT PRPER 7;AT i,0;«|;AT i,29;tl: 

NEXT i 

808 IF X>19 THEN LET X-14: GO T 
807 

810 FOR i s6 TO 3 STEP -1: PRINT 
PAPER 7;RT i,0;AT i,0;««: NEXT 

811 PRINT PAPER 7; AT 17,0;et;RT 
17,29;t«;RT l0,29;t«;RT 10,9;<t 

;RT 2,0;«| 

812 RESTORE 813 
20 STEP -1: RERD 
DRAU b,0: NEXT i 

813 DATA 226,24,227,26,227,26,2 
27,26,227,26,227,26,226,28,226,2 
8,226,28,226,28,227,26,227,26,22 
7, 26 ,227, 26, 227, 26, 228, 24, 228, 24 
,229,22,230,20,231, IB 

815 PRINT AT 2 , 29; "\S" ; AT 3,29; 
INK 1;"#";AT 3 .30; INK 6;"T";AT 
4,28; OVER 1, ■■-—•*■' 

816 LET j-24 

317 PRINT RT , 0, "ENERGIE- " ; % i 
AT 0, 14; "TRBLERU- ";tab;" UIE f ',' 

." rnd vie>l;" 

820 PRINT RT 



AT 3, j*l;"*jr^AT 6 , j ♦!; "UU" ; RT 1 

' J *h .MkJ&JW' i ^T a , j ; "I" ; at a 

• 1±3; f";AT sTTj^^^-iAT 4,J+1; 

"Pf, AT 5, j + 1; "!■" 




LET X-0 



FOR i »26 TO STEP -i 
LET y-21: LET ^4- 
PRINT INK 3j PRPE 
" >■■; AT 21, i ; " 



0,0 



INKEY» B "8" AND X<29 THEN 



IF INKEY«-"7" 

x; PAPER 8; " 

ET y-29: LET 

PRINT PAPER 8;RT y-3, 

«"; AT y ,x; j»;RT y -2 , 
";RT y-l,x; '' J^ k ;rT 



THEN PRINT RT 



856 IF ti-x+3 OR i-x+21 AND y =2 

1 THEN GO TO 1000 
860 PRINT AT 0,9;s;" ": NEXT i: 
PRINT PAPER 7;flT 21,0,t»;flT 14, 

29;e«;AT 6,0;«|: LET &-*+30 

870 IP X<28 THEN GO TO 840 

871 FOR isl? TO 21: PRINT RT i, 
29; PAPER 7;ti: NEXT i 

880 RESTORE 881: FOR a-1 TO 7: 
READ at: FOR t-0 TO 7: READ b: P 
OKE USR «t+t,b: NEXT t: BEEP ,1, 
40: NEXT a 

881 DATfl "c" ,198,166,234,218,24 
■ ,248,224, 192 

,32,208,206,216,216 

,3,6,6,49,127, 127,4 

, 252 , 246 , 240 , 249 , 69 

,15,7,3,7,7,64,63,3 

"i", 252, 261, 258, 285, 7, 

"j", 11 1,231, 265,255,96 

■28 TO 9 STEP -2 

5 , RT 6, 



sea data 



a, r 

884 DATA "g 1 



886 DATA 
14,9,0 

667 DATA 
,9,9,0 

890 FOR i 



892 PRINT INK j, f- 
126-i) ;" 5";AT 21, 
(i/2) ; f -S 

893 IF INKEYt«"5 
LET X-X-l 

894 IF INKEY»-"7 
y-l,x; PAPER 8; " 
r ': LET y-13: LET 

895 PRINT PAPER 



RNO X >0 THEN 



.im -M TiiiiN5 



THEN PRINT RT 

;RT y-3,x; ink 



vsr 



896 IF (i-30-X OR i-31-X) AND V 

-14 THEN 00 TO 1000 
807 PRINT AT 0,9;t;" ": NEXT i: 
PRINT PAPER 7;flT 21,0;tg;AT 14, 

29,t»,AT 6,0,tt: LET * -» >30 

898 IF X>0 THEN GO TO 690 

899 FOR i-10 TO 14: PRINT AT i, 
0, PRPER 7;tt: NEXT i 

900 GO SUB 1500 

910 FOR i -28 TO STEP -2 

911 LET y-6: LET jt«" ft" 

912 PRINT INK 3; PAPER 6, AT 14, 
(28-i) I " S-;AT 21, i; "S " ; AT 6, 
(i/2); f 'S " 

913 ir INKEYi-"8" RND X ( 14 THEN 
LET X-X+l 



914 IF INKEY«»"7" THEN PRINT RT 
y-l,x; PAPER 8;" ■■;RT y,x," 

B j LET y-S: LET j| = " I**" 

915 PRINT PAPER 8; AT y-3,X, INK 
7;" *";RT y,x;j»;RT y -2 , x ; INK 

1; " ^r~ - OX u_1 w 



",RT y-1. 



ifcTSf 



AND 



915 IF ti/2»x»3 OR 
y»6 THEN GO TO 1800 

917 PRINT AT 0,9;*;" " : NEXT i: 
PRINT PAPER 7;RT 21,0;tt;RT 14, 

29;etiflT 6,0;c«: LET s -s *30 

918 IF X<14 THEN GO TO 910 

920 PRINT AT 7,18; INK 5," 
BEEP 1,58: PRINT SNK 5;RT 7,20; 

■"■";RT 8,28;- |";RT 9 ,20; " |"; AT 1 
0,20; " •" 

921 FOR X-X TO 20 

923 IF INKEY««"7" THEN PRINT AT 
y-l,x; PAPER 8;" ";RT y,x;" 
B : LET y-3: LET J»»" •■•" 
925 PRINT PAPER 8;RT y-3,x; INK 

?;" «";flT y,x;jt;flT y-2,x, ink 



(••■;st 



,9.i 



y-4 , > 



926 IF X>15 AND X < 19 RND y-6 TH 
EN GO TO 1090 

928 NEXT X 

929 LET y-6: PRINT PAPER 8,flT y 
-3,x; ink 7;" ■» ";flT y.x;" ft";ft 
T y-2,x, ink l" 1 *»-'';rt y-i,x;" 

930 LET *i* + 



+100: PRINT AT 0,9; » 
IF X <22 THEN GO 
,24 



cax+l; 

TO 



933 LET 
TO 929 

935 FOR i -0 TO 6: PRINT RT 
;«»;" ": BEEP .2,1 : NEXT i 

940 RESTORE 941: FOR a-1 TO 4: 
READ at: FOR t-0 TO 7: RERD b: 
NEXT t: BEEP .1 



ERD at: FOR 

KE USR 4»+t, 
*0: NEXT a 
941 DRTfl 



,31 



,252,254,255,240,60 
,15,31,63,7,7,64,63 
,3,6,6,49,127,127,4 
,32,298,298,216,216 
PRINT RT i ,28 



943 DATA "n 
8,7 

944 OATR "n 
,184,248,252 

950 FOR i -2 TO 6 
;«*;" ": NEXT i 

960 FOR i-2 TO 6: PRINT RT i,x; 
«|;" ": NEXT i 

965 PRINT RT 0,0; PRPER 0;",. 

970 PRINT AT 3,26; INK 7; "#V" 
, INK llftT 4,26; "♦•"iRT 4,29: I 
NK 6;"! ,RT 5,26; INK 1,"«V;AT 
5,28; INK 7; ; RT 6,26; 'TtK#" 

980 FOR i -0 TO 16: PRINT HT 0,2 
7; INK 2;"T T": BEEP .1,(1419): 
PRINT AT 0,15;" ": NEXT 1 

990 PRINT RT , 0; "ENERGIE- "i* 

997 LET fOUOd-rOUfld+l: PRINT "8 
r*voi l !'•; print »l; "j'atttnd* un 
e touch* ! ! ! " : PAUSE 8: CLS : PR 
INT AT 10,0; "Mais ,Gar9a«t l ,»a lyr 
e votre lecona recidiv* MiParvi 
endrsz-vous a l* t«rra**tr tncor 
fi une fOi* 71": PRINT 01, INUERS 
E i;"Pr«»*«z une lOUCht": PAUSE 
0: RESTORE : LET Vie=vi*+1: GO T 
20 

1000 REM < Uit* > 

1001 CLS 

1005 LET Vi*«vi«-1 

1010 IF Vit<-0 THEN GO TO 2000 

1020 IF tab-1 THEN RESTORE 107: 
GO TO 99 

1021 IF iab=2 THEN GO TO 190 
1822 IF l*b=3 THEN GO TO 270 

1023 IF lab=4 THEN GO TO 380 

1024 IF labaS THEN 00 TO 470 

1025 IF tab»6 THEN GO TO 696 

1026 IF tab«7 THEN GO TO 680 

1027 IF iab-8 AND y-14 THEN GO S 
U8 1300: 00 TO 785 

1028 IF tab-8 THEN GO TO 785 

14.99 REM <0EF.GRfl.2nd* > 

1500 RESTORE 1501: FOR a-1 TO 7; 

RERD at: FOR t-0 TO 7; READ b: 
POKE USR •1+1, b: NEXT t: BEEP .1 
- NEXT • 

",99,93,87,91,47,31, 

11,11,27,27,61,6 

503 DRTfl " f" , 192,96,96,140,254, 
254,12,224 

1504 DRTfl "g" ,63,31,15, 15,60,36, 
62,30 

1305 DRTfl "h" ,240,224, 192,224,22 
4, 108,232,248 

1506 DATA "i" ,63,223,255,256,224 
,112,0,0 

1507 DATA "j", 246, 231, 265, 286, 6, 
8,0,0 

1608 RETURN 

2000 CLS : PRINT RT 10,7;"UOtr« 

i Core lit: ";*;" 

2010 IF *>-*C THEN LET * c -* 

2020 PRINT RT 13,7; "Li record t* 

t : ",*C 

2030 INPUT "UOULEZ-UOUS REJOUER 

7", rt 

2040 IF r»(l)-"o" OR rt(l!»"0" T 

HEN GO TO 10 

2050 STOP 

3000 PAPER 2: BORDER 2: INK 



i»IO . 11 C A I 

501 DATA 

7 i 3 

1502 DATA "e" 



3,63 




16,0, 
"Uotrt ChOix t*t:";vi 
>3 THEN GO TO 3000 m 



18 



ORIC TIME 



ORIC1/ATMOS 



Ce programme vous propose un chronometre au 1/100 Mode dempioi: 

de seconde avec stockage du temps intermediaire. £j!^,{£ £^ s l!? * 7°T qu ^ a , p ^ m f B cor L es P° nd * ,J a 

.«« K nr ^ MA «♦ i- M .-;hii»A ^« b. II . rt • lt 9 ne 10 °°°- la deuxidme a la Itgne 10 100 et amsi de suite. De 

une nortoge et la possibilite de transformer votre One sorte que ron pout (aire executes un petit programme de son cboix 

en reveil matin. a chaque alarme. 

Joel SAMBUIS 



i rem tit oric-time *«* 

2 REM *** Co»m right JO*l SambutS 



3 REN F*vri*r 1994 

4 REM t Tout* utilisation coi 



tx 



rcia 

3 REM * Prohib** sans I* cons«nt*n* 

it 

6 REM * d* I'auteur. 



29 GrJSLe2909'G£TR*.GOTO1909''HENU 



'C-16>YY-21=CLS' 



¥*r sur un* touch* 



49 PLOTS. 12,"ApPu 
Pour lartc*r 
43 PL0T12,14,"l« Chrono»*tr*. 
39 PLOTl,l?,"RaPPu**r wr un* touch 
* Pour avoir l«* 
33 PL0T12,19,"t*«*s int«rw«dtair*s. 
69 GETffOOKZB276,9 

iee cosueaeee cos'jeeeee ifq-ithengo 
mazn 

118 IFOG-1THENQO-0 C0SU67ee8 

129 IFQMTHENG0SU9299 

130 IFPEEK<»288>t38THENl09 
149 IFPEEKf.i2ee>-tA9THEN9080 
139 KT-MT*! 

169 IFHT-29THENPRINTCH(t»<3e>>PRIHT: 

179 K-W+l PRINT"T*f*s ";H*"i ";HE»' 
C0T0199 

199 C0T0169 

199 REM 

299 CLSG0SUB5999 

219 PRIHTCHR»<39)"T*»P* int*r»*dUi 
r*s" : PRINT" 

229 0-8 .RETURN 

399 REM HORLOGE 

319 C»-"K)RLOGE"=QQ«1'YY"20'C>I6'GO 



329 PfiPER0PRINTCHR»<30>;CHR»<14>: ' 
F0RY-22T026.PL0T39,Y. 16'NEXT 

325 PRINTPRIN^PRINT'PRINT'PRIMT'P 
RINT:C0SUB6999 

339 PRINTSPC<il2>CHR«<27)'*fl"r;HR«<27) 
"JHISE A L'HEURE 

333 PRINTSPCa2:>CHR«<27rfl' , CHRS<27> 
"JMISE fl L'HEURE 

349 PRINT'PRINTPRINT" Indi9u*Z 

l'h*ur* exact* <hh,«nt»n> 

343 PRINT" Puis, a la second* Pr*s. 
aPPuaez sur"<PRINTPRINTSPCU6>"RETU 
RN 



331 PLQTX.23.3TR«<R<T)> NEXT 

332 HE=1000*P< 1 )+190*RC2>*10*R<3>+R 
< 4 ) ' HE»-STR«< HE ) i LH.ENC HE9 )-l 

333 HH-10*R< 1 >+R<2) MN- 1 9«R( 3 >+R( 4 ) 
HH»«STR«< HH ) MN»-STR«< MH ) 

354 HH*«MID»<HH».2) MN»-MID«< rtNt),2> 
353 IFVRL<HH»X10THENHH»-"0"*HH«' IF 
/HL< HH« X I Tr€NHH»» " ■ *HH» 
356 IFVRL<MH»K18THEHMN«--9"*MH«.1F 



VftL'. NN« X 1 THENWN»" H 9"*MN» 
357 IFHH»-"98e"THEHm»-"00" 
359 IFHN«»"8ee"THENr1N»«"99" 
359 IFHH>240RMH>59THEM365£LSEPL0T12 

,23," 
369 PL0T12,23.HH» PLOT17,2S,MH» 

364 PL0T2, 15.1-PL0T3. 13. 12GOT0371 

365 PL0T2,17,l PL0T3,17,12 PL0T19-1 
7, "ERREUR. . . REC0MMENCE2" i RESTORE ' COT 
0345 

379 DflTRlI, 13,16.18 

371 fl-49 REPERTPL0T22,25,fi fl»fl*ia 
Ffi*59THENfl=48 

375 UNTILPEEK<t209>-«flF DOKE*276.9 
PL0T22.25.43 

389 GQSUC9999. IFRP«3THENR£TURN 

382 IFOQ-1THENQGI="0ELSE400 

385 F0RI-9T08 PRINTCHRJK 1DCHRK 14) 
J NEXT:GOSU67009 

499 IFPE£KCt288>=ifl9THEN9e09£LSE380 

399 REM ALARMES 

319 C»«"fiLfiRMES" = U=0 = CLS = GOSIJB5090 

529 PRINT. PRINTPRINT'PRINT'PRINT'P 
RINT 'PRINT : PRINT 'PRINT 'PRINT" Introdu 
isez l*h*ur« d«s Rl«rn*s i 

525 PRINTSPCCI3r<Haxi«uft ■ 10 filar 
mes) 

539 PRINT:PRINT:PRINT = PRINTSP(X4>"r. 
■It- .PRINTSPCC 4 >■ " 

349 U-U+l •POKE618.il 

550 PRIHTSPCX3); 'fi«IJ)="" :F0RI = 1T04 

560 CETR9 : IFPEEKX #33 K480RPEEK< 1135 ) 
>57THEN560 

579 R*<H)*R*<W)*R»'PRINTR»( 'IFI=«2TH 
ENPRINT" "j 

589 HEXT!HM«<U>-LEFT»<F»<H>,2>« , »< 
U>=RIGHT»(fi»<U>.2) 

585 AHX U )=VAL< AH*< U»i fVKM >=VflU AM« 

599 IFflH( M J>230RflIKU »59THENPRINTSP 
C<5>"ERREIJR...REC0MMEHCEZ 1, ELSE699 
591 PRIHTCHR»< 11); 'COTOSSe 
699 PRINTSPC<5)-ftiJTRE ftLflRME ? <0^N 

605 GETR»: IFR«="O"THENW=U+1:GOTO550 
610 IFR»O"N"THEN605 
615 WU=W: 11=1 

620 F0RQ= 1 TOW- 1 ' F0RE=Q+ 1 TOM ' IFfi»< Q > 
=fi*< E )THENR*( Q )■"" ■ UU=WW- 1 
625 NEXT: NEXT 

639 FORI = lTOW:IFfi«Cn=""THENNEXT 

640 B«<II)='fl*(I>.II*II+l:NEXT 

659 F0PI-lT0II-l'B(I)=VfiL(8«I)) = NE 
XT 

655 N-II-1 

660 F0RI«1T0NM=B<I>:K-I.F0RJ-IT0N: 
I FBC -J )<MTHENK= J ■ M=B< J > 

679 NEXT ■ 6=8< I ) : 8( I >BC K ) 8( K )-B ■■ NE 
XT 

689 F0RI = lT0Nfl»<O-STR»<B<I)>:R«<I 
)-RIGHT«<R«< I>,LEN<B«< I >>-l) 

663 IFL2N< ft«K I ) )< MTHEN690ELSE788 

699 REPEAT •fltC I )-"0"+R»< I >' UNTILLEN 
<ft«< I))-4 

799 NEXT.P0KE61B.19 

703 CM-fiLflRMES":U-0-CLS'GOSUB30e9' 
GOS'JB320 i CLS i GOSUB5000 i G0&JB6999 

707 PL0TI.4.17.PL0T11.4, 16'PLOTl.S, 
17PL0T11,5,16 

719 PL0T3,4,"fllar«**"'PL0T3,3." 



":FORI-1TON^R#»<IM_EFT»<R*<I>,2) 

713 fir»<I)-RIGHT«<Rl<n,2) 

720 PL0Tl,5*I,17PL0T3,5»I,RHt<I)'P 
L0T7.5*I,firl»<I)^Pt0Tll,5+I,16.H£XT 

722 F0RI-1T0N. 

739 YY-21GOSU99000 GO3U97990 

749 IFPEEXC»208)-tR9THEN99e9ELSEGOS 
U98990 GOTO740 

999 REM MENU 

1090 CLSPLOT18,8,20-PLOT26.8.16'PL 
3T10, 16,29<PL0T26.16.16 

1095 F0RY-9T013'PL0T18,Y.29 PU0TI1, 
Y, 17 PL0T23.Y. 29 'PL0T26.Y, 16'NEXT 

1919 PL0T12, 19,-1 CHRONO 

1915 PU0T12.12,"2 HORLOGE 

1916 PL0T12.14,"3 fiLfiRME 

1020 GETRP»'RP-VflL<RP«).IFRP<10RRP> 
3THEN1929ELSECLS i PflPER9 • 0NRPG0T029, 3 
19,310 

1999 REM PRESENTATION 

2009 P0KEfl26F,27.P0KEt26D,128'CJ.6<P 
0KE*260, 88 • PRPER9 > P0KE126F , 23 • POKE«2 
69.10 

2092 POKE#26C.2'rxS'PRlNTCHR»<20).p 
OKEi20C,255 

2903 Q-l.fcM.p-1 

2999 PL0T13.7,1'PL0T14,7,14'PL0T13, 
8,1'PL0T14.8.14'F0RY-7T09'PL0T24,Y, 1 
2 

2919 PL0T23,Y-,e'PU0T26.Y,2'NEXT 

2911 PU0T1 1,3. "*MMW*W»»«n" <F 
ORY-6T09 • PL0T1 1 , Y , 42 • PL0T27, Y, 42 ■ NEX 
T 

2913 F0RY"7T09'PL0T13,Y,-0RIC-TIME" 
■NEXT 

2029 PL0T6,I7,"CoP»ri9ht Jo«i 8flr«U 
IS 1994" 

2039 PL0TI,21,6'PL0T2,21,"flPPUi**Z i 
ur un* touch* Pour contlnu*r 

2040 IFHOITHENRETURN 
2050 GETR«'CUS'M-0 

2060 PRINT'PRINT-PRINTSPC(5>"C« Pro 
9r«ftM* vous ProPos* : 
2063 PRINTSPC<5r 




B FORY-22T026 PV0T9. 
Y, 16 NEXT 
6991 PtOT13.23.-h Mr. »*c 



29PL0T39- 
PLOT 13 



2070 PRINTPRINT'PRINT-* Un Chrono 
m*tr* au 1^199 d« s*cono*,"; 

2073 PRINT-avec stocka.9* d«* 't*mPs 

int*n»*-"'PRINT"diair*s' . 

2085 PRINTPRINT. PRINT"* Un* Ho<-lo 
9*,*9*lejnent Pr*cis* *u" 

2098 PRINT" l-'lOO d« s*conde. 

2995 PRINTPRINT'PRINT"* Un* Possi 
bilit* d'UTi* ou Pluslvurs" 

2100 PRINT"fllar»«s,1u* ous Pourr*2 
*ventu*ll*n*nt"i 

2195 PRINT"utlllS*r Pour cocwtnd*r 
des aPP#r«i Is" 

2119 PRINT"*xt*ri*urs.ou Plus sinPt 
ewent co»w*" 

2115 PRINT"r«v*il.*id*-i«>*MOir*,..." 

2120 GOSUB2038: RETURN 
4999 REM TITRE 

5999 PL0T27.I,3'PL0T28.1.12<PL0T29, 
l,14:PLOT30,l.C» 

590 1 PL0T27, 2,3' PL0T28. 2.12' PL0T23 , 
2,14:PLOT30.2.C« 

5002 RETURN 

5999 REM HORLOGE 



,25.-9 9 

6992 RETURN 

6999 REM flPRET 

7999 rl»»"fc«-r«t dv Pro9rjw*« 

.ESC 

7995 PL0T3.YY.I9 PLOT4.YY.0 PL0T5.Y 
Y,M» PL0T37.YY.C 

7019 RETURN 

7499 REM *« S^P TIMING tt 

8999 SEC«<tFFFF-C€EK(l276>>'iee SEC 
-CINT< SEC* 1 89 > )' 180 

8993 IFRP01THENSEC»INT(SEC ' 

8810 IFSEC>-60TrEHCOS«jew50O 

8913 SEC«-STR«< SEC > MH»*STRf/. MH ) HH 
•-STRXHH) 

8016 IFRP-ITHEN8939 

8020 HH»-MI0»<HH»,2) NH»-MIP»<r»W,2 
> 

8022 IFLEN<MN»X>2THENMW-0-*«N« 

8024 IFLEN<HH«><>2THENHH»«-0-»HM» 

9039 HE«-HHS1*- "*+«•♦• -*SEC« HE 
-VflLC HE* ) 

8932 IFRP»3THENHfl»»HH»«HN» 

8933 PLOT 12, 25, HE* 1 FRP-3THENG0Sue8 

8937 RETURN 

8949 PL0T12,25.HEt-RETURN 

8109 FORI-PT0N'IFHR**f»<I)THEN8299E 
LSENEXT 

9118 RETURN 

8200 ONIGOSUei0999, 10109,10298,1830 
8, 18408, 18508, 10608. 10709, 10999, 1999 
9 

8210 RETURN •• RETOUR 8959 

8499 REM SEO-69 

8590 rX*CEf276,8'MN-MN+l 'N-N+l .SEC' 

8318 PL0T23.23.- 

8529 IFMN-60THENMN-8'HH-MH*1 

8339 RETURN 

9099 REM FIN 

9010 M#)-" Pro9ra*»* stoPP* 

■ i GOSU87003 

9028 POKESie.ll'ENO 

19999 REM fiLfiRME 1 

10910 PINGP-P+1 ' IFP-NTHENP-1 

18920 RETURN 

10108 REM HLHRME 2 

10110 ZfiP'P»P+l'IFP-NTHENP-l 

10199 RETURN 

10209 REM flLRRME 3 

10299 RETURN 

10399 REM fiLfiRME 4 
19399 RETURN 

10400 REM ALARME 3 
10499 RETURN 
18399 REM ALARME 6 
19399 RETURN 
10699 REM ALARME 7 
10699 RETURN 
18709 REM ALARME 8 
18799 RETURN 
10800 REM ALARME 9 
10899 RETURN 

10999 REM ALARME 10 
10999 RETURN 



AU CARRE 




COMMODORE 64 



Ce jeu ne devrart pas decevoir les fans de casse-tetes de temps. Une routine en langage machine lui donne 

diabotiques, il consiste a retrouver les couleurs initiates une grande capacite, de plus le jeu est sonore. 

d'un carre de 5 X 5 cases en un minimum de coups et J. Pierre REDOUTE 

P»:E54273,HF POKE54272.BF P0KEM276.W >W<e54277,31 FORT-01OI28 NEXT 



Z PEI1 • PEMZJTE J.P, * 

10 PEM •• CftSSE TETE fi"J CfiPPE •• CBM 64 *• 

20 PPIMT-T AD=-19I52 M=31715 ^0=?959 
50 P0KE33200,0 POK , E3328I.0 

49 OOSUE600 

50 PESTQPE 

69 FC**I=9T045 PEAfrf 1 NEXT 

79 FORI-0TO173 PEHW POKEAO* I , P NEXT 

S0 FORI-0Trj^ PEftliP-Pf>EfiD*256*I.P fCXT 

iee F0p-^=iaT04 

110 F0PX=9E04 PEftDP P0*rEM*256*V*X,P^ 

P0KEM»I6»236*V*/.P MEXTX.V 
113 MTOi IF0*»""00T0113 
129 PRIHT'^ *ro*"W-EO-H97 

121 F0RX-9T04 E-E0-I29«X 

122 FOP-Z-eTOM prjKEE+V, 169 P0KEE*49*V, 169 MEXTV.X 

123 POKEI 118,6 P0K£99399.12 P0KE1127.6 PCKSSB399.12 

124 POKEU19.49 P0KE33391.12 P0fEH28,^l .PWE'^A&B. 12 

125 P0^E1274,6 P0XE3W46. 12 P0KE1634.6 P0KE55996.12 

126 P0KE1273,33 P0KE33S47.12 POKE 1635, S3 P0KE15997. U 

139 REM • IMITIALI3ATI0H * 

140 H-9984-U-17 GOS»JB270 -OOSUB400 
143 F0RI-9TO3 ■POKE55768*1.0 NEXT 

150 FOPX»eTO14:R-IMT'PHD'0>»4*3> GOSIJS2W 

169 NEXT 

170 PRIMTTfi6':3^^"'T»9e9*'■ 
299 00SUB799 

210 TI*--09e990" 

228 P=P£EK'203> rjOSU6250 

239 IFPEEK'787/»1Q0T0899 

240 G0T0229 

25e Qt»>r J OTOi:e0-269.390.318,329.270 

232 U»IHT',TI/I09>AND15 

253 IF'5*- ,, 2"fiNDU-!3THEMOGSUB990 

260 OOStJB340; RETURN 

270 POKE252-202 

286 P0K£25l,e SVS49305 &OSUB590 

299 RETURH 

3«9 POKE232.295 G0T0239 

316 P0KE251.1 ■OTT0339 

320 POKE251.4 

330 P0KE252.296 'iVS493lT, OO-iuBWe 

359 PETiJRH 



400 P0KE214, 7 ■ PRINT -PRIMTTflBOl) "SCORE "PRINT 

401 PRINTTR8(31)"( T 

402 PRIHTTfiB<4)S0TfiB<3I>"l 9983 I" 

403 PPIMTTA8C3J '"I T 

410 RETURN 

490 5T0P 

399 POKE34296.137 PESTORE 
393 F0PI-9T&2 PEADHF ■■ REflDBF 
110 POKE54277.0 POKE34278, 128 

329 P0KE54273 , HF P0KE54272, BF I POKE34276- 1 7 1 FORT-0TO69 
NEXTT.I 

330 P0KE34276.16N-H+1 

340 S-N*IHT'TI/I00) H*-STRS(S> »0«PEEK( 1499J-48 

343 IM-VAL<RK.HT»(N*,1>>-N3»<VAL1RIOHT»(N».2>)-H4)/10 

346 N2-<VAL<PIGMrS';N»,3i/-N3410-N4>/t89 

347 NI-<VPC'PIOHT*<N*.4,)-H2*109-H3*10-H4)/1909 
358 POKE 1 499, H4-*48i POKE 1 498. N3+48^ POKE 1 497. M2*48; 

P0KE1496.N1»4B 
333 IFN4=N900T0389 
569 P0KE34273.8 PQKE54272. 147P0KE34276. W FOPT=0TO109 

NEXT 
379 P0KE54276.16 
589 PETIJRH 
699 PRINT" __._- - __---" 

601 PPIHT" IIILLL I L I L MM IMUUL" 

602 PRINT" LnjJL ILIL nu L n N N L" 

693 PPim"«Mt*MMU.P. REDOUTE 1984" 

694 PRIHTTftB<!7)"JFl F3" 

693 PPIHTTflB-:i7;"XrrsnjTTT' 

696 PPllirrflB'15/ n F5XTT<~.rr- 

697 PPlMTTftB' l/j"MTurWV 

693 ppinTTRBM7j"S"rrsnrnr 

689 PRIHTrfiBM5>"F7asrrCWTTr 
619^RIMT"iO»'ECONSTITUE2 LES COULEURS MJ CfiPRE EN 

iJHMIMIrtUM DE COUPS ", 
613 PRIMT-ET UN MINIMUM DE TEMPS ■ " PRINT 
620 PRINT" LES COULEURS SONT MELANOSES WJ BEBUI." 
630 PPINT-LES TOUCHES FI.F3.F5-F7 FONT PERMUTTER LES 

DEUX COLOHNES ", 
646 PRINT "GU LES DEUX RANDS 
688 PPIHT"* 1 - NIWWJ 1 
639 PETIJRH 
796 F0RI-0T09 PEADHF PEADBF 



729 P0KE54276-I6 HEXTI 

739 F0RI-8T08 READMF READBF 

740 P0KE34273.HF P0KE34272.BFP0KE34276.M FORT-0TO100NEXT 
739 P0KE34276, 16 HEXTI 
769 PEADHF ■ READBF 

77^ P0KE54273.HF P0KE34272. BF P0KE34276, H FORT=0TO409 HEXTT 

780 P0KE34276. 16 RETURH 

890 W-8I F0PI=13T0OSTEP-l P0KE33281.I G0SUB369 NEXT 

885 IFS-19O09<S0THENS0-S-ie990 

810 G0SUB799 

840 PRINT-MHMMOaa APPUYE2 SUR 1 OU 2 POUR REJOUER" Of- 

830 GETO* IF0»<>-l"AND0tO-2"G0T0350 

360 OOTO30 

900 R»INT<RHD':9>*4*3> 

940 OHR&0T0945.943. 963, 970. 973.970 

943 G0SU8349RETURN 

930 P0KE232.292 

955 P0KE231.9 SVS49399 G0SUB309 

S« WE252.203 00TO953 

?70 P0KE39I< I GOTO980 

973 P0KE231.4 

989 P0KE232.296 SYS49313 OOSUB500 

985 RETURN 

1090 DATA23. 177.43,32.34.73 

1919 PRTRI4, 107, H. 107, 14, 197, 19, 63, 19, 63, 19, 63, 21. 134, 19. 63. 21. 154, £4, 63 

1929 DATA2SM41, 28. 141. 26. 141, 24. 63, 24, 63, 24, 63, 21, 134, 19, 63, 21. 134, 19. 63 

1109 DATf(32. 47, 192. 239. 232, 32. 47, 192. 169. 173, 133, 251, 169. 216. 133.232 

1101 DATA32. 67, 132. 24, 163, 120. 101. 251. 133. 231. 169. 0.191. 232. 133,232 

1102 DATA238. 110, 192, 163, 251, 201, 3. 208. 231. 169. 202, 14 1.110.192.96.160 
1183 DATA6- 177,231.200. 143.231,136.136.208.247-160.6.177.231. 160.1 
1194 0810143.231.96.162.0,134.233.24,32.106.192,230.233.32.106,192 
1193 DATA169,40, 101,253,133,233.32, 196. 198, 198,233. 32. £**I93< li f'283 
1196 DATA233,36, 133,253,232,224,3,209.222.96. 164,253^89.1.292. 143 
1107 DATA23I. 96, 32. 123. 192. 230. 251. 32. 123. 192. 76. 8^192.169.206.133 
1100 DATO.^52- 162. 3. 160, 0,177. 231. 133- 234. 177, 231. 239. 252. 143.231. 198 
1109 DATA232. 198.252.292.208-243,230.252. 165.234. 143^231 .96.32.0. 192 
MIO DOIA76, 166, 192. 32, 114. 192. 169, 0.141, 19. 3. 76. 0.133 

1120 DATA169. 1,133.251, 163.202,133.232. 141, 17. 193, 160.0. 17?, 251, 217 

1121 DRTA17, 202, 298. 18. 290, 132. 3. 208. 244, 238-232. 163. 232. 201 -207,288 

1122 rjflTA23l, 169, 1,141. 19. J. 162. 4. 234, 213, 5. 189. 213.3, 281. 58 

1123 DATB298.8. 169.48- 137,213.3-202.298.238.96 
2090 DATA14, 14,1,8,8- 14,14- 1,8,8, 1,1,0. I, 1.4, 4, 1.5. 5. 4. 4. 13. 3 



VAISSEAU 6 



En 2099 vous et votre Equipage dies pris dans une 
pluie de m6t6orit.es. Arrive rez- vous a remplir votre mis- 
sion, sachant qu" apres les meteorites vous devez 
poser votre vaisseau sur une base pratiquement inac- 
cessible. 

Gilbert STENER 



TI99 BASIC ETENDU 



ERRATUM sur Tl 99/4A B.E. 

INTERCEPTOR du n" 58. 

Vous n'avez certainement pas 

du intercepler grand chose 

avec ce programme. En eftet. 

il manque la fin de la ligne 

480: 

480... F2(I).V2). 



X 



<3r 





QP 



^ 



* 



CALL BANANE 



Nous recevons souveni des 
courriers de lecteurs qui 
viennent de demarrer avec le 
basic etendu et qui 5 
tent de voir des sous-pro- 
grammes qui n'existent pas 
dans leur manuel. C'etait le 
cas il y a deux semaines 
avec un Call PLOT que cer- 
tains ont cherche en vain. 
Sachez. novice que vous 
etes. que le basic etendu du 
Texas est un des plus beaux 
qui soil et que Ion peut creer 
ses propres sous-program- 
mes et les appeler du nom 
que 1'on veut. Par exemple, 



un SUB BANANE peut etre 
detini en fin de programme 
avec les instructions SUB 
BANANE et SUB END. si ce 
programme dessine une ba- 
nane. il suftira ensuite de 
taire CALL BANANE n'trn- 
porle ou dans le p'ogramme 
pour voir apparaitre ce su- 
perbe fruit tout fa une sur 
voire ecran. Vous trouverer 
la facon de faire vos propres 
sous-programmes dans le 
manuel Trancais a la page 
180 et sutvantes traitan: de 
SUB. SUBEND e! SUBEXIT. 



IO REM .*..••*..«•.••••..•.. 
20 REM .....•....*•*••»••#.. 

30 REM •••STEU£F(«»eiLBERT*«» 
40 REM *•••••••••••••••••••• 

30 REM ••••••••»»••••••»*•«• 

60 REM *6*CHS*D'OCEANIE***«* 
70 REM ••••••»•••••••••••••• 

> REM *TEL»*(8)*254»19»33»» 
90 REM ••••••■•«••#**••••••• 

lOO R£M**««TH1CNVILLE*«*« 

1J0 rem* *•*«•»* ■*»•»••••<»••• 

120 REK»»****.*37100*>»«***«* 
130 REM********************* 

140 REM»**P0UR»»*TI-99,'4A+»* 
150 HB W it " ««*< 

160 REM»***BASIC*»ETENDU***>» 
170 REM********************* 
180 REM**.. •••••.»*•»*•*.... 

190 CALL CLEAR ■■ CALL SCREEN(2):i CALL 

MAGNIFY (3) 

20O FOR 1-1 TO 12 li CALL COLOR II , 16, 1) : 

NEXT I 
210 CALL CARRACTERE 
220 • RESLE 

230 CALL SPRITE (•!, 10B,3,*1A9, 123) 
240 CALL 5PRITE(42, 92, 4,94,50,-10,0) 
230 CALL SPRITE(43, 92, 7, 96, 100,-10,0) 
260 CALL SPRITEI»4,92, 1 1.96. 130,-iO.O) 
270 CALL SPRITEI43, 92. 13,96,200.-10,0) 
280 CALL SPRIT£(46,92,12,96,230,-10,0) 
290 DISPLAY AT (2,9) t "VAISSEAU *B'" 
300 DISPLAY AT<6,2):"IL VOUS FAUT TRAWER 
SER" 

310 DISPLAY AT(8,2)i"UN CHAMP D'ASTEROID 
E" 

320 DISPLAY AT(10,2I : "QUI DUPE UN CERTAI 
I TEMPS" 

330 DISPLAY AT(12,2) t "UNE FOIS CE CHAMP 

TRAVERSE " 

340 DISPLAY AT ( 14, 2) I "VOUS DEVEZ DETRUIR 



330 DI 



SPLAY AT(16, 2)t-3 VAISSEAUX ENNEHI 

3AO DISPLAY AT(I9,2)i "POUR CHADUE VAISSE 

AU 'Q'" 

370 DISPLAY ATI20.2) J "VOUS DISP08EI DE 2 

O MISSILES" 

3BO DISPLAY AT(24.2)BEEPi "APPUYEZ SUR UN 

E TOUCME" 

390 CALL KEY(0,K,S)H IF S-0 THEN 390 

4O0 CALL CLEAR 

410 DISPLAY AT (2,2) I 'UNE FOIS LES VAISSE 

ftOJt" 

420 DISPLAY AT (4, 2) I "DETRUITS" 

430 DISPLAY AT!6.2)i "VOUS DEVEZ ATTERRIR 

440 DISPLAY AT(9,2)i"SUR UNE BASE" 

430 DISPLAY AT< 10,2) t "MOBILE" 

460 DISPLAY AT ( IS. 10) i "BONNE CHANCE" 

470 DISPLAY AT (24, 2) BEEPi "APPUYEZ SUR UN 

E TOUCME" 

480 CALL KEY(0,K,S)n IF S-0 THEN 4B0 

490 ^DEMONSTRATION D'UN ATTEPRISSAOE PAR 

LE 'Tl* 
500 FOR 1-1 TO 6 II CALL DELSPRITE (•! ) i : 

NEXT I 
310 CALL ETOILE 

320 DISPLAY AT(1,4)| "TI-99/4A ET SON PIL 
OTAGE-. i" AUTOMATIOUE" 

330 RANDOMIZE 
540 CALL MAGNIFY! 4) 

330 CALL SPRITE <•!, lOS, 3, 20, 80,0,0) 
360 DISPLAY ATI], 4)1 "TI-99/4A ET SON PIL 
OTAGE-i I " AUTOMATIOUE" 

370 CALL HOTION(«1, INT(RNO*10> , INT(RND*3 

360 CALLPQSITI0NI4I,X.Y> ii IF X>130 THE 
F 620 
390 CALL S0UND(-1000, 110,10,440. 13, BBO, 2 
3.-2,0) 
600 DISPLAY AT(1,4||- 

610 QOTO 360 

620 CALL MOTION!*] ,0,0) 

630 DISPLAY AT!12,4>| "ATTERRISSAGE REUSS 

640 FOR 1-3 TO 16 t i FOR E-l TO 10 ■■ CA 
SOUND (-10O0, 1 10. 13. 440, 13, B80. 25, -8.0 
I CALL COL0R(»l.I)it NEXT E il NEXT I 
10 CALL C0L0R(4I,3) 
660 DISPLAY AT(16,4)i"A VOUS LES COMMAND 
ES" 



IDE) 

700 5C1-1000 

7IO CALL MAGNIFY (3) 

720 A-l 

730 CALL CARRACTERE 

740 CALL ETOILE 

730 CALL COL0RI3, 16,3,4, 16,3) 

760 DISPLAY AT ( 1 , J ) t "VAISSEAU" I A 

770 CALL SPRIJE!4A. 104.3,96,30) 

780 CALL BPRITE144, 92,4. 30, 220. •5,92,5,3 

9, 220, •6,92. 6, 89,2201 



790 CALL SPRITE(»7.92.7. 1 16. 220, MB, 92. B, 

144,220) 

800 CALL SPRITE(*9.92.9,172.220,»K),92. 1 

0,3.220) 

BIO CALL SPRITE!»20,92, 13, 190,22*>0) 

820 CALL JOYSTd.X.Y) 

S30 SC1-SC1-20 i: DISPLAY AT (-1, 14) : "TEMP 

S'tSCl 

B40 IF SCIOO THEN 1330 

850 CALL SOUNDC-1000, 110, 13, 440, 25. BBO. 1 



900 IF T0UO83 THEN 630 
910 DIR-4 

920 CALL HCHAR(16,3,79> 
930 CALL HCHAR(XS, YS, 138) 



10. 13.440,23,880, 
3.-B.Q) 

1000 CALL HCTI0N<4A,-Y«3,0) 
1010 CALL MOTI0N(»7,0,- 

1020 CALL COINC(ALL.C) i 

60 

1040 CALL COINC(ALL,C)ti IF C--I THEN 11 



1090 CALL MOTION(«10,0,-INTIRND*39> > 

1100 CALL JOYSTd.X.Y) 

lllO CALL HOTION(4A,-Y»3,0) 

1120 CALL COINC(ALL.C) i i IF C--1 THEN 11 

1130 GOTO 820 

II40 'COLLISION 

II 50' EXPLOSION 

1160 CALL CLEAR 

1170 CALL D£LSPRIT£(»20,44,«3,«A,»7,48,» 

9,aiO)u CALL MOTIONCBA.0,0) 

1180 CALL P0SITION(4A,XA,YA)ti FOR 1-1 T 

□ 8 >i CALL PATTERN(»A, 120) 

1190 CALL SOUND(-1000,-3, I, 110, lO-I) 

1200 FOR E-l TO 10 ll NEXT E il CALL PAT 

TERN(»A, 124) n FOR E-l TO 10 ll NEXT E 

1210 CALL COLOR(4A,3*I) I I NEXT I 

1220 DIBPLAY AT!l2,3)i"C L L I 8 I N 

1230 A-A*l i: IF A>3 THEN 1270 

1240 FOR 1-1 TO 1000 it NEXT I ■■ CALL C 

LEAR 

1230 CALL ETOILE 

1260 GOTO 740 

1270 CALL CLEAR n CALL DELSPRI TE ( ALL) 

12B0 CALL CLEAR it CALL SCREEN(2) 

1290 DISPLAY AT(12,l)i"M I S S I N E 

C H U E E" 

13O0 FOR I-J TO 1000 it NEXT I 

1310 CALL FIN 

1320 GOTO 700 

1330 DISPLAY AT(12,2)t"M I S S I O N R 

E U S 8 I" il FOR I-I TO 900 n NEXT I 

1140 CALL DELSPRITE(ALL) 

1330 CALL ETOILE 

1360 'DEUXIEME PARTIE DU PROGRAMME 

1370 E-l I i M-l 

1380 RANDOMIZE 

1390 CALL HCHARI24, 1,38,32) 

1400 CALL COLOR (3, 16,3,4, 16,3) 

1410 CALL SPRITEI4A, 104,3,96,30) 

1420 CALL SPR1TE(«4, 96, 6,30,220) 

1430 FOR l-IO TO 2B 

1440 CALL SPRITEI4I, 112,7, 170, 123) I t NEX 

T I 

1430 CALL LOCATEtaiO, 170, 30, B11 . 170,60,4 

12, 170,90) 

1460 CALL LOCATEI413, 170. 120, «14, 170, 130 

.•15, 170. 1 BO. Ml 6, 170,210) 

1470 CALL LOCATE (»17, 170. 105, «I8. 170, 133 

,•19, 170, 1*5, •JO, 170. 193) 

1490 CALL M0TI0NI«4, INT (RND*30) ,0) 

1490 FOR 1-10 TO 28 II CALL M0TIDN(»I.O, 

-3)ti NEXT I 

1300 CALL JOYSTd.X.Y) t I CALL KEYd.S.T) 

I I IF 8*18 THEN 1390 

13lO CALL MOTION(«4, INT!RND*30> ,0) 

1320 CALL MOT10NI«A,-Y»3,0) 

1530 CALL C0INC!44,45,8,C)i i IF C— 1 THE 

N 1670 

1340 CALL P0QITION<a4.OU,AQ) ll IF nu 30 

THEN CALL M0TI0N(«4,»INT(RND«33) , OlELflt 

I 

F OW.,120 THEN CALL MOTION («4, - INT (RND*33 



1330 CALL S0UND<-2OOO. 140,20,220,10, HO. 

20.-7, 10) 

13AO DISPLAY AT ( 1 , 1 ) i -.VAISSEAU"! A 

1570 DISPLAY AT(1, 14) I "MISSILES" IE 

1380 GOTO 1500 

1590 CALL POSITIDN(BA,W£,SD) 

1600 E-E*l :i IF E>21 THEN 1760 

1610 CALL MOTI0N(*A,-V*>3.0> 

1620 CALL SPRITE!»3, 100. 1 1 , WE. SO. 0, 90) 

1630 FOR I-I TO 3 I: CALL COINC CM. »4, 8, 

C):l IF C— 1 THEN 1680 

1640 NEXT I 

1630 FOR I-I TO 7 II CALL COINC (»4 , «3, 8. 

Oil IF C— 1 THEN 1670 

1660 NEXT I ■: CALL DELSPRITE <«> • i GOTO 
1300 

1670 CALL DELSPRITEiaS) 

1680 CALL MOTION(»A,0,0) 

1690 FOR 1-1 TO 10 il CALL COLOR (•4, 1*3) 

u CALL PATTERN1«4,124) 

1700 CALL SOUNDI-1000, 110, 10,-3,0) ll NEX 

T I 

1710 CALL PATTERN(»4,96! 

1720 M-M*l tl IF M-3 THEN 1940 

1730 'CHANGEMENT OE COULEUR DO VAI ISEAU 

ENNCMI 

1740 CALL COLORt«4,8*M) 

1730 GOTO 1300 

1760 CALL MOTI0N<*4.0,0,*A,O,O> 

1770 'COLLISION DU VAISSEAU ENNCMI AVEC 
LE VAISSEAU 'B 1 

1780 CALL POSITIONItA.ER.DF) ii CALL LOCA 

TEE»4,ER,220) 

1790 DISPLAY AT(4,7)i"B A N Z A I" 

ISOO FOR 1-1 TO 30 i i CALL MOTION! »4, 0, - 

1*1. 5)11 FOR B-l TO 3 ll NEXT B 

1810 CALL C0INC(*A,»4, 10, C) it IF C--1 TH 
EN 1830 

1B20 NEXT I 

1830 CALL M0TIONI«A, 0.0. •4,0.0) . 

1840 CALL DELSPRlTE<»4)ti CALL PATTERNS 
A, 124) 

I630 FOR N-l TO 3 

1860 NEXT N 

1B70 FOR 1-5 TO 12 ii CALL COLOR I»A, 3* I ) 

■■ FOR L-l TO A ii CAUL SOUND I-IOOO, 1 10, 

10,-3.0) 

1880 CALL PATTERN(*A, 124) 

1890 CALL PATTERNCC1, 120)1 i NEXT L i i NE 
XT I 

19O0 A-A*l ll E-l ii M-l ii IF A>3 THEN. 

1920 ELSE CALL DELSPRI TE (ALL) 

1910 DISPLAY AT(4,7)|- - n 8 

OTO 1410 

1920 CALL CLEAR 

1930 CALL FIN 

1940 CALL CLEAR tl CALL DELSPRITE (ALL) 

1930 DISPLAY AT(12,3)t "MISSION ACCOMPL 

IE- 

1960 DISPLAY AT 1 14. 7) I "A LA SU1VANTE" 

1970 FOR 1-1 TO lOOO ii NEXT I 

1980 CALL CLEAR ll CALL DELSPRITE [ALL) 

1990 CALL CARRACTERE 

3000 CALL ETOILE 

2010 ITROISIEME PARTIE DU PRGR.AMME - 

2020 CALL SCREEN<2> 

203O CALL HCHARI24, 1,38,32) 

2040 CALL C0L0RI3. 16,3,4, 16.3) 

2030 DISPLAY AT 1 1 , I > ■ "VAISSEAU"! A 

2060 SC-1000 

2070 CALL SPRITE <«A, 108, 7,30, 123) 

2080 CALL SPRITEIM, 116,9, I 73, 240, 0> INT I 

RND*30>> 

2090 CALL JOYSTd.X.Y) 

2100 CALL MOTI0NI«A,-Y»2.3,X4I,3) 

2110 SC-SC-30 tl DISPLAY AT d , 1 4) I "TEMPB 

"ISC ll IF 3CO0 THEN 2300 

2120 CALL POSITION(«A,XP,YP) I I IF YP>163 

THEN 2330 
2130 CALL COINCC»A,«4,7,C>t t IF C— 1 THE 
N 2170 

2140 CALL P0SITION(«4,XC,YC) I I IF Y0200 
TbJEN CALL MOTION(«4,0,-1NT(RND»30))ELBE 
IF YCOOO THEN CALL MOT ION<«4 ,0, INT (RND 
•30) ) 

2130 OOTO 2090 
2160 ' 

2170 CALL MOTI0N(«A, 0,0, •4,0,0) 
2180 FOR I-UO TO lOOO BTEP 13 n CALL S 
OUNDt-lOO, 1,0) I I NEXT I 
2190 CALL DELSPRITE (ALL) 

2200 CALL CLEAR it DISPLAY ATd2,12)l"B 
R A V O" 

2210 DISPLAY ATd3,3) i "VOUS AVE! REUSS I 
VOTRE ATTERRISSAGE" 
2220 FOR 1-1 TQ lOOO It NEXT 1 it IF A<3 

THEN 700 ELBE CALL FIN 
2230 SC-0 

2240 FOR 1-1 TO 1000 II NEXT I 
2230 A-rt.l ii IF A>3 THEN CALL FIN ELSE 
GOTO 19BO 
2260 CALL CLEAR 
2270 CALL DELSPRI TE <ALL > 

2280 FOR 1-1000 TO 110 STEP -13 ll CALL 
SOUNDI-lOO, 1,0)11 NEXT I 

2290 DISPLAY AT d 2. 12) I "ERREUR OE P1L0TA 
OE" 
2300 CALL MOT ION (4A. 0.0. •4.0. O I I I CALL P 



OSITION(»A,Z.V)l I IF Z>163 THEN 2330 

2310 IF SC<-0 THEN 2330 

2320 BOTO 2300 

2330 CALL DELSPRITE(«4> 

2340 CALL MOTION! *A, O. O) : i FOR 1-1 TO B 

233© CALL FATTERN(»A. 124H i FOR E-l TO 

ii NEXT £ ii CALL SOUND I -lOO. -3. B- 1 . 1 

0,10-1) 

23*0 CALL PATTERN(«A. 120) I I FOR E-l TO 

ii NEXT E 

2370 CALL COLOR («A, 3*1 1 I I NEXT I 

23S0 CALL OCLSPRITE(ALL)il IF A<3 T>*N : 

050 ELSE CALL FIN 

2390 'DEFINITION DES CARRACTERES 

2400 SUB CARRACTERE 

2410 ! VAISSEAU 'G' 

2420 CALL CHARU04, "03041833224282836018 

070O000O0O00C0201 BCC04622 I E IO* 1 BCOOOOOOO 

OOOO") 

2430 ' VAISSEAU AT 

2440 CALL CHAR! 108. -O3O41B33224282B360I8 

0703091 I 1 133C02018CC046221E10A18E0A09088 

B8CC") 

2430 ■ ~ 

2460 CALL CHAR I U 2 , " OOOOOOOOOOO 1 020 409 1 2 

2448B4OA718O0OOOOOO4OA16AA32O29249471 1 2H 

34B2") 

2470 ' A5TERROIDE 

2480 CALL CHAR<92,-OOOIO2041A2348eO9O488 

6B1 34 lOODO 280601 048281 4B4482S44BA I 224489 

060" ) 

2490 'VAISSEAU ENNCMI 

2300 CALL CHAR 196, -OO0O0OOOOOOF34C8A41FO 

000000000000004 2C7C840433O 1 07FE0O0OO00O0 

OOO") 

2310 ' MISSILE 

2320 CALL CHAR < 1 OO ," 00000000000000004024 

1 21 F 1 22440000000000000000000000000000000 
OOOO-) 

2330 • BASE MOBILE 
2340 CALL CHARd 16, " OOOOOOOOOOOOOOOOFFFF 
FFFFFFFFFFFFOOOOOOOOOOOOOOOOFFFFFFFFFFFF 
FFFF-) 

2330 ' PET EXPLOSION 
2360 CALL CHAR { 120, "00000020010410022004 
OOOBO 22O00O0OOOOOOO4 4000 1 0400840 1 0004008 
OOOO") 

2370 ' GRD EXPLOSION 
2380 CALL CHAR (124, "8OO12OOOO841OAO000OA 
4 1 OBOO20O I BOO 1 0OO4 BO 1 002300000300 J 1 08004 
OOOl") 

2390 ■ ETOILE 
2600 CALL CHAR(9l,"0001",3a,RPT»("F", 16) 
I 

2610 SUBEND 

2620 'DECORATION FOND 

2630 SUB ETOILE 

2640 CALL CLEAR n CALL SCREEN (2) 

2A30 CALL DELSPRITE(ALL) 

26&0 CALL MA0NIFVI3) 

2*70 FOR l-l TO 12 ■■ CALL COLOR ( I . 16, 1 ) 

tl NEXT I 

2*80 RANDOMIZE 

2*90 FOR 1-1 TO 30 ■■ O-INT (RND*22) *1 II 

P-INT(RND»3l)*l 
2700 CALL HCHAR(0,P,91) 
2710 NEXT I 
2720 SUBEND 
2730 ' PARTIE TERMINEE 
2740 SUB FIN 
2730 'POUR REJOUER 
27AO CALL CLEAR 
2770 CALL DELSPRITE(ALL) 
2780 CALL SCREEN (7) 

2790 FOR l-l TO 12 n CALL COLOR!!, 16,1) 
2800 NEXT I 

2810 CALL COLDR(0, I*, 11 
2B20 CALL SPRITE (41, 92, 8, 30,30, •2,92,9, I 
0,60,43,92, 10,30, 130) 
2830 CALL 9PRITE(44,92.I1,10,180,43,92,1 
4,30.230) 

2840 CALL SPRITE(46, 108, 16, 170, 133,47, 10 
4,3, 1 13, 30) 
2B30 CALL SPRITE (48, 96, 7.90. 230. 49, 96. I I 
, 130,200) 

29*0 CALL BPRITE(4I0,96, 14,180,2301 
2970 CALL SPRITC!4ll.|00.ll,170,30.*l2,l 
00, I 1, 140, AO) 
2BB0 DIBPLAY AT (0, 2) I "VOULEZ-VOUH REJOUE 
Z" 

2990 DISPLAY AT (12, 2) t " l-POUR OUI" 
2900 DIBPLAY AT d B, 2) I "2-POUR NON- 
2910 ACCEPT AT(13,!3)KEPlY 
2920 CALL DELSPRI TE (ALL) 
2930 IF Y-49 THEN 700 
2940 SUBEND 
2930 FND • 




RASE-MOTTES 



Eldves pilotes en mat de perfectionnement, I'entrarno- 
ment intensif id propose fera de vous un as du man- 
che a balai (et du rase-motte). 

Renaud BOURNAC 

Mode d'omploi; 

Proscntalion et choix du niveau de difficultes la hauteur des monta- 

SBS est proportionnelle au niveau choisi; vous dlsposez do 5 vies 
|eu comporte 5 tableaux: ^^ 

Tableau t: Obtenlr le maximum do points en rasanl lo sol lo Dlus ' 
DOMBM 



Tableau 2: Detruire la vilto on appuyant sur ospace, les Immeubles 
phis sieves rapporient plus de points 
Une bomoe touchant uno cotonne ddja detruito bloque le lir 
T«W«u 3: Paasw dana une grotte sans toucher les parois 
T^ii 4: ^"WP"* au premier avoc on plus la dilficulto d'aviter les 

netoonbfi 

Tableau 5: Eviter cette fois la chute des bombes 

Votre score a'amche a la tin des 5 tableaux at le jou recommonce"" 

avec un niveau do difticuito accm. 



1 'RASE NOME 

2 'Ranaud BOURNAC 
5 'CANON X-07 

■I CLS:MFINTA-r:tIHE»--00:00:00- 

3 LINE (70, 23) - 130,231 ( L 1NE- (S3. 20 I : I 
INC- (8*. 201 :L INt- IW4, I3| :LINE- (104, 




6 LINE- 


< 104, |7 


:line 


< 103, 101 :line 


., 


lo?, iei 


JLINE- ( 


.08, 17 


:HNE- 






9 LIMB- 


1 1 13, 13 


:linc 


(118,7 


: L I NE - 






L 1 NE - ( 1 


38.12) 


L I NE - ( 


08, 12) 




8 LINE- 


I 107, 11 


:line 


( 103, 1 


I (LINK 


.{ 




LINE- 1 


04, 13 








» LINE- 


"3, 131 


LINE- 


»3.121 


LINE- I 


11 


,121'LtNE- (W2,o >:l ini 


-191.8 






7,12) 












10 LINE 


»2,8>- 


»3,3) 








U LINE 


87,12) 


< 84 , 1 2 


i : L I ne 


(BO, 8) 




INE- (77 


SI :LINE- (73,61 :line 


(73,81 




12 LINE 


-(70,81 


LINE- 


6*, 12) 


LINE- (63 


I2>:LINE-(33.51:LIW 


-1*1, 12) 




13 LINE 


(36. 12 


:LINE- 


(33,13 


:line- 


4 


», 131 :l 


NE-(46 


12' :LI 


NE-(43 


11 I 





100 CLE! definta-2:n-i: CONSOLE, , ,o 

DA-19: BR-?:OOSU9300 

I 14 GOSUB900 

113 Y-INT(RNS(0>«14) *14 

120 F0RJ-0T0119;D-INT(RND(1)»2).I 

121 IFJ>20ANDN-2THEN122ELSE12S 

122 LINE(J.Y)- IJ.31) : J-J*1:VY.M 
124 IFY>U90RJ>-119THENI23ELSEI22 

123 IFD-1THENY->Y*M:G05UB200 
126 IFD-2THENY»Y-M:GOSU8200 
130 NEXTJ 

160 0OT023O 

200 I F Y >3 1 TMENY-3I 



201 



<16TI 



■14 



Y-BR) 



I Ml ■ 



:line-<42. 



[M - 



2, 13>: LINE -(38, 13)J LINE- (32, 7) 

15 LINE- (37, 131 ILINE- (42, 13): LINE- (4 
2. 171: LINE- 143, 18): LINE- (43, 18) 

16 LJNe-(46,17>:LINE-(46,13»;LINE-<3 
6,13) : LINE- (61,20) ILINE- (63, 201 

17 L I NE - I 70 , 23 ) 

18 LINE 171 , !2> -(73,10) ILINE- (77,10) : 
LINE-(79,12) 

19 LINE (71, 22 I -(79,221 : LINE- (02, 19) : 
LINE- (82. 13) ILINE- (80.14) :LINK- 169,1 

20 LINE- (68, 13) :LINE- (68, 191 :LINE-<7 



21 LINEC 



,14) -(92,14l:LINE- 



L I NE - I 83 , 1 8 ) : L I NE - ( 83 , 1 



141 :lINE-(«3,18) 



IB) ,2:P 



22 LINE OS, 14 
LINE-(A2, IS) II 

23 CIRCLE(72, IB) , 2: CIRCLE ( 78, 
SET (44, 131 :PSET(44, 16) :PSETtl06, 13) 

24 PSET(106, 16) 

23 FO8Y-OT03OO:NEXT 

26 FOR0-OTO6 

27 L0CATE1, I :PRINTRIOHT«l -RAS *,0):L 
0CATE0,2:PRINTRIOHT«( 'MOTT S*,8) 

28 BEEP40, I : PEEP-11 , CNEXTO 

29 FQRH-OTO2:FORD-OT010O:NEXTD:LOCAT 

E4,h:print-e-i :BEEP90, 1IT8XXTH 

30 LOCATE 4,0:PRINT* * 

31 FORAP-IO0OTO3OOSTEP-13 

32 F0RPA-1T02 
34 BEEPAP.PA.PA 

33 NEXT: NEXT 
40 FORA-OT08 

63 8EEP2900, l:CIRCLEI72, IB) ,A: CIRCLE 

, A: NEXT 

63 BEEP4O00, 1 : LOCATEO, 3! PRINT* • i FOR 
I-OT0300 
70 NEXT:K-KM : IFK-4THEN90ELSE63 



203 LINE! J, 

210 IFN-3ANDJM2THENM-1.-LINE 

- (J, 9 I :RETURNELSE«ETURN 

230 eEEP40,2:8EEP44,2 

231 BEEP30, 2: BEEP33, 2 

232 BEEP49,2:BEEP39,2 

233 B£EP39,2:8EEP69,2 
233 * 

236 N-A8 

237 IFN-2THENGOT03090 

260 GOSUB 1 030 : Y- I 3 : I - 1 O : P- I NT ( RND ( O I 
HO) tY:F0RX-OT01 19 

261 ONERRORGOT03000 

262 ONNQOT0270, 120O, 270,2190,264 
264 1-1 .1: IFPOINT (P, II--1THENG0SUB6O 
O:C0TO26S 

263 PSET(P,Il!PRESET(P,I-2> 
266 - 

270 A»0:A-STICK(0) 

271 IFA-1 THENO0TO290 

272 IFA-3THENG0T0292 

273 PRESET I 2. T I : IFPOINT (X , Y ) -- I THENG 
0SUB293 

276 EH' 

280 Z-x: t-y:nex 

2B2 PRE9ETIP, 

286 G0TO4OO 

290 Y-Y-l: IFY<OTMENY-0 

29 1 GOT0273 

292 Y-Y*l :G0T0273 

293 PRESET (Z.l.T.l) : PRESET (2*1, T) 

296 PRESETIP, I ) .-PRESET (P, {•!) 

297 ■ 

300 F0RH-lTO4:BEEP432,2:8EEP234,2;PS 
ETIX-M,Y-M-4l:PSETIX,Y-H-l):PSeT(X-H 
.Y-H-2) 

302 PRESET (X-H.Y-H-4) : PRESET (X.Y-M-1 

i: preset (x-h,y-h- 21 inkxth 

303 loc a teo, o: print- score 'isc:forv-o 
toaoo: next: da-da- 2: ifoa< iotheniioo 

313 GOT0260 

40O LOCATED, 1 :PRINTSTRING*I40, • ■ I I : 

LOCATEO, 3;PRINTSTRINGe( 19, * -»| 



413 PRESET(HH,BB) :NEXT:NEXT 

416 ONNGOT0420,430,440,430,432 

420 N-2:SC-SC*30:G0T0113 

430 N-3:SC-SO60:G0T0113 

440 N-4:SC-SC*70:OOT0113 

430 N-3:BR-8R-l:SC-SCt8O'G0T0113 

432 BO-100MSC»3/100> 

433 LOCATE 3, 1 : PRINT ■ BONUS: * I BO: FORX 
0-0T010OO:NEXT 

436 LOCATE 3, 1 : PRINTSTRING* < 10, * ■) 

460 locateo, o: print -score -isc*bo: for 
vi-ito3:forv2-itoio:beepvi«v2, i:bo-o 

461 next:next:n-2:goto!I3 

470 ' 

300 LOCATEO,2:PRINTSTRINO«(20, ■-■ ) I 

302 locateo. 11 input 'diff icultel ,2.3" 
in:forr-itoh 

303 IFrt)3THEN300 

303 FORR-iTOM: BEEPM1200, i:beepo,2:ne 

310 cls:ab-m:return 
312 ■ 

400 i-iosp-int ibndioi tioi • (X*6) 

603 IFP>1IBTHEN610ELSERETURN 

610 P-119; I-KURETURN 

700 • 

900 FORI-I 1T018STEP2 

1000 F0NT»(I2B)-"0,0,4,14O, 120, 12,4, 




beep40oo,2:ww-o: ac-o:po-o:«etur 



»1I3>«3 

2220 UJ-INt il-NDi I i «2i 1 MOIPSET 

2222 NEXT:G0TO27O 

2230 * 

3000 IFERL-3I 

3001 C0T0260 

3010 * 

3090 FORDE-40T0100 

3100 ED-1NT(RND(1)«3>*?6 

3103 IFED-30RE n-3THENDE-DE*lELStLINE 

(BE, 31 I- (DC, CO) 

3110 NEXT:GOT0260 # 



OTMENRESUNE3001 



29) -"0,0, 128, 19*. 120, 192 



:sc-sc*eh:pset(x, Yi 



:PRESET(P, 1-1) 



1001 r ont*( 

, 128, O- 
1004 FONT«( 
1010 LOCATE 
29) 

1020 NEXT:RETURN 

1030 LOCATEDA,0:PR1NTCHR«(130) »CHR«( 
130) 1031 LINE (0,81-1 119,8) : LINE (63,0 
>• (63,8) 1040 RETURN 
1030 ' 

1100 LOCATEO, 0:PRINTSTRING«( 20, * *) 
1110 A»--PLUG DE VAISSEAUX VOUS VOUS 
ETES ECRASE 3 FOIS AVEC UN 6C0RE OE 

1120 FOPG-ITOLEN(AV) :LOCATE3,0 

1130 PRINTHID*(A*,G, 10) I : NF.X ( 

1160 L0CATE4,0:PRINTSC-Pointa*!F0RU- 

0T01200:NEXT 

1141 LOCATE 2,0!PRINT'EN ■ | TIME«I ■ m 

n»-:END 

1170 ' 

1200 AC-STRIO(O) : !FAC--1ANDX>39ANDX< 

101ANDPO-OTHENVVX:UW-Y 

1203 IFPOINT (VV.WUM I - - 1 THEN00SUB200 



1210 1FUU>-1THENWU-WW>1: IFWW< 31 THENG 

OSUB1230GLSEUW-0ANDAC-1 

1230 00T027O 

1230 Po-i :rr,et (vv.uu) : preset ivv, uu- i 

1 (RETURN 



40K RAM POUR VOTRE CANON X07 

Carta dimension RAM CMOS non votaWe. 

to ons d« conso(vai<>n des donneos pn( pile nu meture but la carte Autonofnle 

complete. Angino nKmenwIon ■upplementairo 

3JK ROM POUR VOTRE CANON X07 

Carte d'extenaton EPROM 2764 pout tigef de* progmmmoa protOJMlonnelt el 
mam h lout Umptan i dm idudtim p« nnnal i ten BASIC ou en I ANQAQl 

•.'ACHINl I 



Cm deux cartes son! modulnWos par chips de 8K a partk dos odresaes 8lfll' 
18384. 24576, 32768 COMPATIBILITE TOT ALE avpc les cartes prfcxooramniMa 

CANON 

Garnntie lolnle de 1 an (dalo de lacAffe) 

SERVICE DE PROORAMMATtON DES MEMOIRES EPHOMS. 



DON OE COMMANDE (A docouoer ou A recopiet) 



Pro no m 
Adresae 
Code postal 



Carte rriAre RAM nuo 
RAM CMOS do 8K (maxl * par cmio) 
Carte mere lecteur EPROM nue 
EPROM de 9K [mad 4 par carta). 

Port 

C'Romboursoment (i 21 

ou cheque jolnl a In 

TOTAL 
(Envoi on paqoel tecommandfl sous 8 |0ura) 

Signature 

I INFO SYSTEME S.a.r.l. 01510 VIRIEU LE GRAND TeK {79)87.83.72. 




JRS 80 

Suite de la page 1 



Ri -i to; 

(MB PR1NT878, ■ (H.OUF - I I U- 1023 J GOSUB63B 
18 FOftt~lT028aiNEXT 
I12B A0R-16e84'PRINTB78, * ■ 1 1NB-NB-1 I IF NB-BTMEN I *8B ELSE P 

OHE ADR, 176 
.138 GOBUB 310 (RETURN 

BARQUE HI NEE ? 
130 F0RI-1T018HF KAOR-DAND 631-0 THEN 1198 
168 IF PEEK (ADR- 1 1-4* THEN GOTO 1228 
178 IF PEEK (ADR- 1 1-32 THEN I19B 
IB8 NEXT1 

198 FOftt-lTOiadF (lADR'IlAND 63>-63 THEN 1238 
:nu IF PEEK(A0R*()-46 Uif-U GOTO 1228 
ill IF PEEKIAD«« I >-32 THEN 1238 ELSE NEXT] 

128 PMINT87B. -BOUtl* I • U- 1 »23 1 GOBUBMO (FOR t-1 TO38IF0R t-1 T0388IN 
:XT«G0T01129 

;23B W-I2fl20)tGfjSUB638 (POKE ADR, 1761 IF HM POKE 16326, 00( POKE 163 
•7,127iST-U8R(8KlF 9T THEN I33B 
1233 RETURN 

BONNUB 

238 POKE ADR, 1761 PRINTB7B, * BONNUS* I I W- 12023 iG0tJUB63(D iFORt-IIO 
I38)NEXTIPRINTB78,- *|lB-8*l'IF D-3 <HCN PHINTB78, * BRKjlJF ' 

tBIG0SUB638 )F0RI-lTO2B8lNEXtlB-«|iPRINTa7B, ' "(INB 

-NB*1IPRINTB76SMNB-1 )«2,CHHe( 148) I 
1268 "ETURN 



134B F0RI-ITO9IM-l82'3lG0SUB638 (NEIT I PR1NTB7H, • VOUS Al 

A LA HAUTLUH DC LA MISSION QUI VOUO 

ETAIT CONFIEE C"E8T PARFAIT 

VOULEZ VOUS QUE L'ON VOUS ENGAGE A NOUVEAU T'MGOTOI38B 

1338 PRINT-VOULEI VOUS CONQULTEFt LEC RCGLC9 DU JEU T*l 

1368 F0RI-1T047 STEP 13 >C-U3R< 13>236> I ) (NEXT (FORt-66 TO ! 

3 I C-UBR( 13*236*1 I "NEXT 

1378 IF PEEK( l*33D>-64 T)(EN RETURN 

I.U18 IF PEEK( 1433B)-12fl ELSE1378 

IJV8 CLBIPRINT* 



1*3B PRINT' 



ii- I'l.uv-.- done nil !■■ utitleer dana 
i-«m»nt» imf ii viiii* ivii 1* courage 
le point qui voue donne du bannut el 



t»f»B PRINT' 



r.l-iii - telle • 



> »ff-l 



I I- 



88 PRINT' 

nllllara da paraonnea 
llltttfl FRAPPEI <CNTER> POUR CONT INUER' | i INPUT A 
i!8 PRINTIPRINI- 



1428 PRINT- 



COB PRINT878, "PAF 



<IB23i<;0SUB638 IPOKC . 



I.32HF I 



rm .'i 



I FORI-ITO480(NEXTiGOTOI 130 
I GOBUB 938 IGOTOUIB 
I ■■>■■ GAGNE i LA DIGUE EBT 
I &OHUB318 
1318 GODUB 308 



i<le nannal la conti 



CHM(*9 

k8 PRINT* 

FRAPPEI <ENIER> POUR CONTINUER '((INPUTAtl 



in*» • la darlva limit i 



FRAPPEI <ENTBR> POUR COMMENCER LA CAHTtC ■ t I INPUT* 
RCTUHN 

1*08 PRINTBTe,- HA'AAAAA AUSECOURS I * I (FORI - I M BJ <u- 

239 1 GO flUBASB lfHINTCHM(33) I iW-21 / (6OBUB630 I 
PRINT II llti '*M)|IN ■ i il lift [-1 If .tll-OBU-MIV TO 314 BTEP-31 

.iml-.^.i if.i ■ l.i, : .. i ■;,, .,!.■, i |,.-,l-h IW . i IPRiNl 178, 

•OLOU *liFORt-IT03B8INEXTiP«lNT'uLOU ...'I 

1*« PRINT'VOUB AVE/ LAIBdf PCRIR DE!1 nlLLIfHQ DE OCNB 

VOUO ETED UN 10URREAU 

VOULCI VOUB NECIDIVCR 7 

1100 W*-JNKLVai IF n«--0'TIIEN HUN 188 

1318 IP R*-'N' THKN CL8IKND ELHC 1388 

1328 POKE 1 632*. 081 POKE 1 6327, 127 IBT-UBR(B) 

1338 IF BT<BL AND OT >9H-3B THEN tT-tlSOTOfM 

13*8 IF BT>BL AND BT<fl8i26ffl AND H >■ i in n 1 1 .' I . ■ 

1343 QT-8 

1338 RETURN 



21 



IE LAC 

DES N AVI RES FOUS 



Tl 99 BASIC SIMPLE 



Enfin, un bon jeu de strategie sur TI99 et en basic sim- 
ple. Les amateurs d'aventure et de strategie sont pri6s 
de taper ce programme et vite ! 



Jean Luc LARTIGUE 




TI 99/ 4A 



10 REM 

20 REM 

30 REM 

40 REM 

30 REM 

60 REM «uttur ■ 

70 REM jsan luc lirtigui 

BO ' REM 23 rut dm boyris» 

90 REM 64000 pau 

100 OPTION BASE 1 

110 RANDOMIZE 

120 DIM P*(6),N*(4) ,EL0(3) 

130 COX— 3 

140 SOSUB 4360 COULEURS 

ISO OOSUS 4440 ASCII 

160 CALL CLEAR 

170 T*-" M AOUT 198* PAU JLL" 

180 XT-9 

190 GOSUB 3630 AFF/T* 

200 GOSUB 2230 FIN 

210 REM d«but 

220 TOUfl-0 

230 NIV-0 

240 DIR-0 

2SO CALL CLEAR 

260 NBC- 10 

270 CAR- 11 

280 TOR- 12 

290 YS-21 

00 XS-21 

lO T*-"CARBURANT" 
320 FDR 1-1 TO 9 
330 CALL VCHARd + 12, 19, ASC(SEB* <T», I 

1) ) ) 
340 NEXT I 

30 RESTORE 4670 

60 FOR I-I TO 11 
370 READ A,0,C,D 

;bo call hchar(a,b,c,D) 

190 NEXT I 
400 FOR 1-11 TO 21 

10 CALL HCHARd, 21, 138, 9) 
420 NEXT I 
430 GOSUB 3200 EFF/MIRE 

40 FOR 1-17 TO 22 
430 CALL HCHARd, 3, 104,1 1} 
460 NEXT I 
470 T*-" PROF : TORPILLES" 

T-24 

490 GOSUB 3630 AFF/Tt 
300 T*-"VENT FORCE" 
510 FOR I-l TO 10 

1320 CALL VCHAft(9+I,31,ASC(SEG*(T*, I, 
I))) 
330 NEXT I 
340 CALL VCHAR(13, 17,61, 10) 
330 CALL HCHAR<23, 20.63, 12) 
360 GOSUB 4230 DEPLACEMENT 
570 GOSUB 3S30 PLONGE 
SSO CALL HCHAR (10, 16,46) 
390 CALL HCHARdl, 17,46) 
600 CALL HCHARdl, 19,46) 
610 CALL HCMAR(X3,YS. 137) 
620 GOSUB 1030 POUR/VERIF 
630 CALL COLOR (2, 1 1. I> 
640 CALL KEY(O.TOU.ET) 
630 CALL COLOR<2.1,1) 
660 IF ET-0 THEN 630 
670 IF TDR-0 THEN 2870 

680 IF (TDU-84)* (NIV<3) — 2 THEN 2Q30 
690 IF TOUR-1 THEN 730 

700 IF (T0U-G2)*(NIV>1)— 2 THEN 3670 
710 IF (T0U-80)-*(NIV<6><>-2 THEN 730 
720 GOSUB 3830 PL0N8EE 
730 IF CAR>-1 THEN 7B0 
740 XT-9 

730 T»-" PANNE DE CARBURANT" 
760 OOSUB 3340 AFF/T* 
770 GOTO 2230 FIN 
780 IF TOU< .-69 THEN 820 
790 DIR- 1 

800 CALL HCHARd6,3,78) 
810 GOTO 930 
820 IF T0UO68 THEN 860 
830 DIR-2 

B40 CALL HCHAR (16, 3, 69) 
830 GOTO 930 
860 IF TOUOBB THEN 900 
B70 DIR-3 

U80 CALL HCHARd6,3,83> 
890 GOTO 930 
900 IF T0UO83 THEN 630 
910 DIR-4 

920 CALL HCHAR(16,3,79) 
930 CALL HCHARiXS.YB, 138) 
940 CAR-CAR-. 2 

930 CALL HCHAR(13*INT(CAR>,17,32> 
960 ON DIR GOTO 970,990,1010,1030 
970 X8-XS-1-<XS-1<11) 
980 GOTO 1230 
990 YB-YS*1-MYS*1>29) 
1000 OOTO 1230 
1010 X5-XS+1+(XB*1>21 ) 
1020 OOTD 1230 
1030 YS-YS-1-(YS-|<21> 
!°J° BQT0 1230 
1030 REM v.rl*. collsion 
1060 IF (XS-XCd))*(YS-YCd))>-2 THE 
N 1180 

1070 IF NIV<>3 THEN 1180 
1000 CALL VCHAR(13, 17,61, 10) 
1090 CAR-U 

1103 T*o"RA!/ITAILLErHNT EFFFCTUF" 
1110 XT-9 

1120 OOSUD 3340 AFF/T* 
1130 FOR I-l TO 13 

1140 CALL 80UND(-10.2000»d/3) 1/4) 
115Q NEXT I 



1160 CALL HCHAR (9, 1 , 32,32) 

1170 80T0 1220 POUR/TOUCHE 

1180 FOR I-l TO NBC 

1190 IF (XS-XC(I))+<YS-YC(I> )*(NIV>3 

)— 3 THEN 3230 

12O0 IF CXS-XC(I) >*(YS-YCII))*(NIV<4 

)— 3 THEN 3360 

1210 NEXT I 

1220 RETURN 

1230 CALL BCHAR(XS,YS,6Q6> 

1240 IF GSe-136 THEN 1260 

1230 GGB-137 

1260 CALL HCHAR(XS,YS,G6G> 

1270 REM visualisation 

1280 CX-0 

1290 CY-0 

13O0 ON DIR SOTO 1310,1330,1330,1370 

1310 CX— 1 

1320 3070 1330 

1330 CY-1 

1340 80T0 1300 

1330 CX-1 

1360 GOTO 1380 

1370 CY— 1 

1380 FOR 1-1 TO 3 

1390 COX-CX«I 

1400 COY-CY»I 

1410 CALL GCHAR(XS*COX,YS+COV,G) 

1420 IF (I-l)*(G-32) >-2 THEN 1480 

1430 T»-" TERRE A L' HORIZON" 

1440 XT-8 

1430 SOSUB 3340 AFF/T* 

1460 T*-» 

1470 GOSUB 3630 AFF/T* 

14B0 IF BOI36 THEN 1320 

1490 ON I GOSUB 4130,4030,3990 

130O GOSUB 1390 BOnBAROEMENT 

1310 GOTO 1380 

1320 NEXT I 

1330 GOSUB 32O0 EFF/MIRE 

1340 FDR 1-3 TO 7 

1330 CALL HCHARd, 1,112,23) 

1360 NEXT I 

1370 CX-2 

1380 GOTO 620 POUR/VERIF 

1390 REM bombjrd-m-nt 

1600 IF NIV>2 THEN 2070 

1610 XB-3 

1620 YB-28 

1630 AN0-.7 

1640 GOSUB 2080 AFF/S-H 

1630 CALL KEY<0,TOUC,ET) 

1660 IF TOUC-84 THEN 2830 

1670 IF TDUR-l THEN 1700 

1680 IF T0UCO80 THEN 1700 

1690 GOSUB 3830 PLONGEE 

1700 FV-< <RND«7)+3)/10 

1710 CALL HCHAR(2I,3I, (INT<FVS10))+* 

8) 

1720 ANG-ANG+.2 

1730 CALL S0UND(-1300,-6, 13> 

1740 XB-XB-(COS<ANO)/FV) 

1730 Y8-YB-(BIN(ANG>/FV) 

1760 IF <XB>7)*(YB<1>< — 1 THEN 2060 

1770 IF ((YB<1)*(YB>32) — 1)*(XB>7.9) 

— 1 THEN 2070 

1780 IF (X8*(C0S(ANG)/FV)<1)+(YB*(SI 

N(ANO)/FV)<l)--l THEN 1B00 

1790 CALL HCHAR(XB«-<COS(ANG)/FV),Y8* 

(5IN(ANG)/FV> , 112) 

1BO0 IF (XB<1)*(VB<1> — 1 THEN 2030 

1810 CALL GCHAR(XB,YB,G) 

1820 CALL HCHAR(XB,Y8, 101) 

1830 IF 80132 THEN I960 

1840 T*-"TOURELLE TOUCHEE NAVIGATION 

1B30 XT-B 

1860 GOSUB 3340 AFF/T* 

1870 T*-" A LA SURFACE 08LIGAT0IRE" 

1BB0 XT-9 

1890 G0BU8 3630 AFF/T* 

1900 FOR 1-1 TO 300 

1910 NEXT I 

1920 CALL HCHAR (8, 1,32,64) 

1930 TOUR-1 

1940 NIV-0 

1930 CALL COLOR (14, 1,4) 

I960 GOSUB 3830 PLONGEE 

1970 GOTO 630 POUR/TOUCHE 

19BO IF G<133 THEN 2030 

1990 T*-"VOIE D"EAU VOUS COULEZ" 

2000 XT-9 

2010 SOSUB 3340 AFF/T* 

2020 FOR I-l TO 400 

203O NEXT I 

2040 OOTO 22SO POUR/FIN 

2030 OOTO 1720 POUR/CALCUL9 

2060 CALL HCHAR(XB*(COS(ANO)/FV),YB* 

(3IN<ANO)/FV) , U2> 

2070 RETURN 

20S0 REM *4 4. sous Marin 

2090 FOR 1-3 TO 7 

2100 CALL HCHARd, 1, 112,231 

21 10 NEXT I 

2120 IF CX-2 THGN 2240 

2130 YBM-EL0(AB8(COX)»AB8(COY)) 

2140 CALL HCHAR(7,YBM+2, 132) 

2130 IF NIV-2 THEN 2240 

2160 CALL HCHAR(7,YSM+1, 133,3) 

2170 RESTORE 4690 

2100 FOR I-l TO 3 

2190 READ A.B.C 

2200 CALL HCHAR<A,YSM*B,C) 

2210 NEXT I 

2220 IF TOUR-1 THEN 2240 

2230 CALL HCMAR<3, 2+YSH, 132) 

2240 RETURN 

2230 REM (in 



POUR RE8LES" 



POUR JOUER- 



2260 CALL HCHARdO, 1,32,480) 

2270 RESTORE 4670 

2280 FDR I-l TO 11 

2290 READ A,B,C,D 

2300 CALL HCHAR(A,8,C,D) 

2310 NEXT I 

2320 T*-- LE LAC DES NAVIRES FOUS 

2330 XT-1 

2340 SOSUB 3630 AFF/T* 

2330 T*--APPUYEZ SUR l" 

2360 XT- 13 

2370 GOSUB 3340 AFF/T* 

2380 T*-- FCTN AID 

2390 XT-1 6 

24O0 SOSUB 3630 AFF/T* 

2410 T*-" FCTN BEGIN 

2420 XT-19 

2430 SOSUB 3630 AFF/T* 

2440 T»-- FCTN ERASE POUR FINIR" 

2430 XT-22 

2460 SOSUB 3630 AF^/U 

2470 CALL KEY tO.FIN, ET) 

2480 IF FIN<>7 THEN 2310 

2490 CALL CLEAR 

2300 ENS 

2510 IF FIN014 THEN 2330 

2320 BOTO 210 DEBUT 

2330 IF FINOl THEN 2470 

2340 GOSUB 2360 REBLES 

2330 GOTO 2230 

2360 REM rtglr, 

2370 CALL CLEAR 

2380 PRINT "M BUT DU JEU ("it- EL1MI 

NCR TOUS LES NAvIRES-:i-DE LA SURFAC 

E DU LAC 

-lil-W POSSIBILITES DU SOUS-MARIN- 

2390 PRINT i ! "DEPLACEMENT AU NORD SU 

D EST"!i"OUEST PLONGEE REMONTEE"n"S 

ONAR AUT 

OMAT I DUE PER I SCOPE " i i 

2600 PRINT -PROFDND1MCTRE BOUSS0LE"t 

: "ET TIR DE TORPILLES t I 21"i I t TAB17) 

I -.TAPEZ 
UNE TOUCHE. ~) 

2610 CALL COL0R<2. II, I) 

2620 CALL KEYIO.K.S) 

2630 CALL COLOR<2,l,l> 

2640 IF 5-0 THEN 2610 

2630 CALL CLEAR 

2660 PRINT "W FONCTIONS DES TOUCHES 
"! t iTAB(7) I "P > PLONOEE-i I I TAB ( 7 ) t * 

R > RErtO 

NTEE"i i |TAB(7) I"T > TIR" I I i TAB<7) I "T 

OUCHES FLECHEES >"n" DEPLACEMENT 

AU NORD 

SUD-it 

2670 PRINT " EST ET OUEST" . I I i TAB< 

7) I ".TAPEZ UNE TOUCME.-l 

2680 CALL COLOR (2, 1 1 , 1 ) 

2690 CALL KEYIO.K.S) 

2700 CALL COLOR(2,1,1) 

2710 IF S-0 THEN 26BO 

2720 CALL CLEAR 

2730 PRINT " POSSIBILITES DES NAVIRE 

S"u"W BOMPARDEMENT CONTRE PAR LA" j t 

" FORCE 

DU VENT-it'N DEPLACEMENT LORSOU"UN"i 

i" NAVIRE EST COULE-ii 

2740 PRINT -N LE TIRAN D'EAU DE TOUS 

"II" LES NAVIRES EST DE 13 M"n 

2730 PRINT -N SEUL LE PETROLIER SIGN 

ALE"ii" PAR LE SONAR PEUT RAVITAIL"! 

t" LER L 

E SOUS-MARIN SI CELU1"|I 

2760 PRINT " CI VA A SON CONTACT PAR 

"II" DESS0US"iTA8(10) I ".TAPEZ UNE TO 

UCHE."t 

2770 CALL C0LOR(2, 1 1 , 1 ) 

2780 CALL KEYIO.K.S) 

2790 CALL COLOR 12, 1,1) 

2800 IF S-0 THEN 2770 

2810 CALL CLEAR 

2820 RETURN 

2830 REM tlr sous war In 

2840 TOR-TOR- 1 

2B30 CALL HCHAR (23, 20*T0R, 32) 

2860 IF TOR>-0 THEN 2940 

2870 CALL HCHAR (24, 21 , 32,9) 

2880 T*-" PLUS DE MUNITIONS" 

2890 XT-9 

2900 OOBUB 3340 AFF/T* 

2910 FOR I-l TO 400 

2920 NEXT I 

2930 GOTO 2230 POUR/FIN 

2940 CALL S0UND(-100,-3,0) 

2930 FOR 1-0 TO 30 

2960 CALL 8OUND(-100, 1B0-I , I ) 

2970 NEXT I 

2980 IF ABS(C0X)*A6S(C0Y)>1 THEN 630 

2990 FOR I-l TO 23 

3000 CALL S0UND(-100, 110M, t.-l, 1) 

3010 NEXT I 

3020 GOSUB 3200 EFF/MIRE 

3030 NBC -NBC- 1 

3040 GOBUB 4310 EFF/CUIR 

3030 FOR 1-3 TO 7 

3060 CALL HCHARd, 1, 112,23) 

3070 NEXT I 

3080 CX-2 

3090 IF NBOO THEN 3190 

3100 T*-" BRAVO VOUS AVEZ REU93I" 

3110 XT-B 

3120 OOSUB 3340 AFF/T* 

3130 T*-"A NETTOYER TOUT LE LAC" 

3140 XT-10 

3130 OOBUB 3630 AFF/T* 

3160 FOR I-l TO 300 



3170 NEXT I 

31BO SOTO 2230 POUR/FIN 

3190 BOTO 630 POUR/TOUOC 

ZZC-C 3E- »'■«£■— fit sirs 

3210 FOR 1-10 TO 16 

3220 CALL HCHARd, 3.112.11) 

3230 NElT I 

3240 RETURN 

3230 RE-i niviri vtrlutlt 

3260 IF (XS-XCtl))-lYS-YCIl>>>-2 TMt 

N 3290 

3270 T*-"PETROLIER A LA VERTICALf 

3290 GOTO 3300 

3290 T*-N*(INT(RNT>*4)*l)s- A LA VERT 

ICALE" 

3300 XT-9 

3310 SOSUB 3340 AFF/T* 

3320 FOR I-l TO 400 

3330 NEXT 1 

3340 CALL HCHAR<9, 1,32,32) 

33SO GOTO 630 POUR/TOUCHE 

3360 REM coll si on 

3370 FOR I-l TO 30 

3380 S0N-1NT(RND»8)*1 

3390 CALL S0UND(-100, -SON.O) 

34O0 NEXT I 

34 10 SOSUB 4360 COULEURS 

3420 XT-9 

3430 T*-"VOUS AVEZ PERCUTE UN NAVIRE 

3440 SOSUB 3340 AFF/T* 

3430 FOR 1-1 TO 23 

3460 CALL HCHAR (XS.YS, 137) 

3470 FOR J-I TO BO 

3480 NEXT J 

3490 CALL HCHARUS.YB, 13*) 

33O0 FOR J-l TO SO 

3310 NEXT J 

3320 NEXT I 

3330 GOTO 2230 POUR/FIN 

3340 REM a**. T« 

3330 FOR KM TO 3 

3360 FOR J-l TO 3 

3370 CALL SOUND(-10. 20O0.0) 

3SG0 CALL S0UND(-13,20OO,0) 

3390 CALL SOUND(-20, 2OOO.30) 

3600 NEXT J 

3610 CALL SOUND<-20, 2000,301 

3620 NEXT K 

3630 FOR J-l TO LENd«) 

3640 CALL HCHAR (XT. 3*J, ASC (BED* (T*. J 

, I) ) ) 

3630 NEXT J 

3660 RETURN 

3670 REM rsaontt 

3660 NIV-NIV-1 

3690 IF NIV>2 THEN 3B10 

3700 FOR I-l TO NBC 

3710 CALL HCHAR(XCd).YCd), 136) 

3720 NEXT t 

3730 OOSUB 10B0 AFF/8-H 

3740 CALL COLOR (16. 1,M 

3730 CALL C0L0Rd3,l,6) 

3760 CALL COL0R(13,l,6> 

3770 CALL COLOR (12. 1,6) 

37B0 CALL COLOR (1 1 , I ,6) 

3790 CALL COLOR (10, 1,4) 

3800 CALL C0LOR<9, 1,6) 

3810 IF NIVOl THEN 3830 

3820 CALL C0L0R(14,1,4) 

3830 OOSUB 3930 AFF/NIV 

3840 GOTO 620 POUR/VKRIF 

3830 REM plortqs 

3860 NIV-NIV+1 

3B70 IF NIV>2 THEN 3890 

3880 OOSUB 2080 AFF/S-M 

3890 IF NIV-1 THEN 3910 

3900 CALL COLOR(14.1,i) 

3910 IF NIV<3 THEN 3930 

3920 FOR 1-9 TO 16 

3930 CALL COLOR (1,1,1) 

3940 NEXT 1 

3930 FOR I-l TO 4 

3960 CALL HCHAR (24, 1 !-» 1 , ASC (BEO* <P» ( 

N1V), 1,1))) 

3970 NEXT I 

3980 RETURN 

3990 REM aM.culr loin 

4000 GOSUB 3200 EFF/MIRS 

4010 CALL HCHAR(16, lO, 120) 

4020 RETURN 

4030 REM af«.culr.*oya>n 

4040 OOSUB 320O EFF/MIRE 

403O FOR I-l TO 3 

4060 FOR J-t TO 3 

4070 CH-CHU 

4080 CALL HCHAR(13»I,B*J, 120»CH) 

4090 NEXT J 

4100 NEXT I 

4110 CH-0 

4130 RFTURN 

4130 REM aM.culr.pras 

4140 CALL HCHAR(16,9, 131.3) 

4130 CALL HCHAfl(13,9, 134,3) 

4160 RESTORE 4700 

4170 FOR I-l TO 12 

4180 READ n.tt.t 

4190 CALL HCHAR(A,B,C1 

4200 NEXT I 

4210 CALL HCHAR(12,9, I 19,3) 

4220 RETURN 

4230 REM dsplaomant cut . 

4240 FOR I-l TO NBC 

4230 XC(I>-!NTdl*RND)*ll 

4260 YC(I)-INT (9»RND)*21 

4270 IF (XS-XCd> )#(YB-YC(I) )<0 THEN 

SuWpsygJ 
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DESASSEMBLEUR 



PC1500 



Passionn6s du langage machine sur PC 1500 vous 
allez pouvoir des maintenant decouvrir sa vie secrete. 
Ce ctesassembleur utilise les nouveaux codes. 

Antine MAH1EU 

Mode d'emptof: 

Apres avoir rentre le programme de pres de 6K (module d'exlension 

necessaire). vous pouvez lui adjoindre le programme de la figure 1 

afin de verifier la correspondance des codes sur les tableaux a) et 

b). 

Les controles (arts, tors de ['execution on vous donne le choix entre 

plusieurs options: 

L'option ALPHA vous permettra d'inscrire le caractere ASCII corres- 

pondant a I'octet a desassembler. Dans I'exemple 1 on voit apparal- 

tre les mots du basic suivis de leur adresse d'entree {zone C054 - 

C34 E). Dans I'exempte 2, on a les messages basic de C34F a 

C368. Et toujours avec cette option, I'exemple 3 montre le desas- 

sembtage dune ligne basic (a partir de 38C5). 



La seconde option est l'option de DESASSEMBLAGE a proprement 
parler, a partir des Mnemontques standards. Elle vous permettra de 
desassembler vos routines LM en donnant les octets extremes de la 
zone etudiee (N1 et N2). Comme I'exemple 4 qui est un sous-pro- 
gramme de temporisation (une double boucte). 
Vous pouvez aussi dans cette option, donner un mot d'amM (un 
mnemonique tel qu'il a ete memorise dans les datas) qui stoppera 
('execution du programme a la premiere rencontre du code corres- 
pondant. Cela vous permet de desassembler le basic sans avoir a 
connaitre les adresses exactes de relour des instructions; dans 
I'exemple 5. connaissant ladresse d'entree de I'lnstruction LOCK 
(C968). vous pourrez donner le mot d'arret "VE5E2 return" qui est te 
mnemonique de retour de I'instruction. A I'adresse de depart N1 
vous donnerez & C968 et a N2 vous ne repondrez rien. Le pro- 
gramme stoppera automatiquement en C96D. Vous pounez alors. 
toujours le relancer par CONT et rl s'arrStera a la prochaine instruc- 
tion ds retour basic. 

Le programme peut etre utilise aussi en repondant Enter (RC) aux 
deux options, ceci vous permettra comme dans I'exempte 6 de trou- 
ver tes adresses des macro-instructions de FF02 a FFFF. 




5 


■'DESASSEriBLEUR 




.8, "LOA , YL", 8 


35 


OATA "?", a, "SP 


MS 


OATA "ECR , CX) 




DP", 8, "!", 8, "! 




LDX , U",8, -:", 




)",8, -:-,8,B] 


H2 




pc-isea 




, "LDA ,UL", 8, " 




U", 0, "RPU", 3, " 




", 8, "EDR , tY)" 




",8, "!",8 




8, "LDX , S-,8, " 




I, iCX), -, 1 


1887: IF M2-8LET N 


e 


REM AUTEUR : 




?",a, "JNC X",8 




UEJ C8, ", 1, "UE 




, 8, "EOR , CU)", 


238 


DATA "!", 8, "!" 




LDX , P", a 


312 


:0ATA "811, ICY) 


2=IFFFF 




Antolnt rlAHIEU 




, "JNC Y", 8, "IN 




J 08", 0, "UEJ E 




8, •?*,», "BI1, C 




,8, "!", 8, "!", 8 


235 


OATA "!",8, "!" 




, % 1, "BII, l(U> 


!8B8:TEXT :LPR1NT 


9 


RET1 COOES L.n 




C U", 




8",8, "UEJ F8", 




X), ", 1 




, "DEC XH",8, "0 




, 8, "PSH X",8, " 




/ "» 1 


T»:CS1ZE I: 






ss 


:DATA "?", 8, "LD 




8 


145 


OATA "BII, CY), 




EC YH", B, "OEC 




PSH Y", 8, "PSH 


345 


DATA "■•,•,■•■ 


LF 2 


IS 


OATA "SBC, XL", 




A , XH", 8, "LDA 


180 


DATA "AND , CX) 




•', 1, "BII, CU), " 




UH", 8 




U", 8, "I", 8, "PS 




, B, ■*:-, 8, -EOR 


I8JB:L=8:CLS :FOR 




8, "SBC, YL", 8, ■ 




, YH", 8, "LDA ,l> 




", 8, "AND , CY)" 




, I, "?•', 8, "BUR 


235 


DATA "!",B, "!" 




H A", 8, "!",8 




,4() ", 2, _ !",8 


l»Nl-t8888T0 




SBC, UL",8, ■'?", 




H", 8, "?", 0, "UE 




,8, "AND , (U)", 




*", 1, "BUR -", 1 




,8, "!", B, "!-,8 


237 


DATA "!",8, "!" 




, -r.e, "!-,8, - 


H2- 1,8888 :K=1 




8, "INC XL", 8, " 




J C4, , ",2, "UEJ 




8, "?", 8, "AMI, C 




, "EOR , O", 2 




, "!", 8, ":-, 8, " 




, 8 




Bii.it), -,3, -: 


■*&8888U4= 




INC YL", 8, "INC 




04", 8 




X), ", 1 


\A? 


DATA "EAI , ", . 




1 ", 8, " !", 8, " '." 


388 


DATA "AND , 1CX 




•.8 


PEEK K 




UL", 8 


57 


:DATA "UEJ E4", 


185 


OATA "ANI, CY), 




. "UI1J , ", 1, "IN 




i 8 




>-, 8, "AND , ICY 


358 


DATA "STA ,itX 


lfl?fl:n-INT tNyJ6) 


19 


DATA "?",8, "SB 




8, "UEJ F4", 8 




", 1, "ANI, (U>, " 




C A", 8, "BII, C) 


248 


DATA "ADC, tCX) 




)", B, "AND, ICU) 




)", 8, "STA , itY 


1838:B=M-16*A 




C, XH", 0, "SBC, Y 


66 


.DATA "LDA , <X) 




• 1, "?", 8, "BZR 




, ", 3, "2ND", 8 




", 8, "ADC, ICY)" 




", 8, "!",8, "ANI 




>-, 8, "STA , ICU 


1B48:C=IHT (Kx483 




H",8, "SBC, UH", 




", 8, "LOA , <Y)" 




+ ", 1, "BZR -", 1 


158 


OATA "STA , CX) 




, B, "ADC, iCU)", 




, *(X), ", 1, "ANI 




)",9, "!", 8, "ST 


G) 




8, "?", 8, "UEJ C 




, 8, "LDA , CU)", 


)87 


DATA "AND , O" 




", 8, "STA , CY)" 




8, "'", 8, "!",8, 




, «<Y), ", 1 




X , S", 8 


1B58:D=1NT tCK-Ct 




8", 8, "UEJ 08, , 




8, "?", 8, "LIN , 




, 2, "ANI, A, ", 1, 




, 0, "STA , <U)", 




"1", 8, "'.", B, "! 


302 


DATA "ANI.iCU) 


355 


DATA "STX ,P", 


*896)'2S6) 




",2 




CX)", 8 




■UZR , *', 1, "SHL 




a, "?", a, "cpi.x 




",B 




, ", 1, "!",8, ■!" 




8, -!",8, ":",B. 


I868:E=1NT (<K-<8 


57 


DATA "UEJ E8", 


65 


DATA "LIN , CY) 




", 8, "ANI, (), ", 




L, ", 1 


245 


DATA "!", 8, "!" 




,8 




-coo-, a, -:-,e. 


36tC-256lO)'- 




8, "UEJ F8", 8 




", 8, "LIN , CU)" 




3, "REC", 8 


155 


OATA "CPI, YL, " 




,8, "ADC, tC) ", 


305 


DATA "*",8, "AN 




-STA ,it) ",2, 


16) 


7'i 


DATA "SBC, CX)" 




, 0, "?", 0, "BHR 


ne 


DATA "STA , XL" 




, 1, "CPI.UL, ", 1 




2, "!",B, "'.",8, 




D ,«() ",2, •!" 




-R1E-, a, "Ane", 


1878:P=INT (K-C«4 




, 8, "SBC, CY)",8 




♦ ", 1, "BHR -", 1 




, 8, "STA , YL", a 




, "?",8, "BCH *" 




"DRR, «C) ".8, " 




,8, "!",8, "!", 8 




8, "Afll", 8 


896- 256*0- Ct 




, "SBC, <U>", 8, " 




, "LDA , ()", 2 




, "STA ,UL", 8, " 




, 1, "BCH -", 1, " 




!",B,"!M 




, "ANI, ■(), ",3 


357 


OATA "?", 8, "!" 


16) 




7", 8, "SIN (X)" 


62 


DATA "LDI, A, ", 




?", a, "LOI, XL, " 




STA , O", 2, "CA 


258 


DATA "1", 8, "!" 




, "!", 8 




»8 


1890:FOK J=ITO 6: 




. 




1, "UHR , ", 1, "S 




, 1, "LDI.YL, ", 1 




LL ", 2 




,8, "!",B, ":-,8 


313 


OATA "POP X", 8 


381 


OATA "BIT , ICX 


?=«(J):B»tJi 


25 


DATA "SIN <Y>" 




HR", 8, "?", 8, "T 


IJ5 


OATA "LDI, UL, " 


1S7 


DATA "UEJ CE", 




,"0FF",B, ":",B 




, "POP Y", 8, "PC 




>",8, "BJT ,itY 


=CHR* CC4B*Z 




, 0, "SIN CU)",8 




IN", 8 




, 1, "?", 8, "RT1" 




8, "UEJ-DE, ", 1, 




, "!",0, "!",8, " 




P U", 8, "!", 8, " 




>', 8, "BIT , iCU 


)t(Ztl8))» 




, "?■', 8, "SCR ♦• 


78 


DATA "CPA , XL" 
j 8, "CPA , YL", 8 




, 8, "RETURN", 8, 




"UEJ EE", 8, "UE 




!",8 




STX , X", 8, "STX 




)-, 8, "!", 8, "AD 


CHR* CC^!,»?) 




, 1, "BCR -", 1 






"LDI, S, ", 2, "jn 




J FE",8 


255 


oata •*!", a. w :" 




, Y",8, "STX ,U 




I, itX), ", 1 


ftZ)3)):NEXT 


26 


OATA "SBC, O", 




, "CPA , UL", 8, " 




P ", 2, "UEJ CA" 


168 


DATA "BIT , CX> 




,8, ••!", a, ":■•, a 




",B, "!",8 


365 


OATA "ADI, itY) 


J 




2, "SBI, A, ", 1, " 




?", 0, "DEC X",B 




, 1 




*, 8, "BIT , <Y>" 




, "!",8, "!", 8, " 


315 


DATA "POP A", 




, ", I, "ADI, «CU) 


1895: IF OTHCN 158 




UCR , ", 1, "ROR" 




, "DEC Y", 8, "DE 


117 


DATA "UEJ DA", 




,8, "BIT , CU)", 




i",a 




8, "!", 8,-TTA", 




, -, 1,"!", 8, "!" 


8 




, 8, "SPU", 9, "AE 




C U", 




8, "UEJ EA", a, " 




8, "?", 8, "ADI, C 


268 


DATA "LDA , 1CX 




8, "1TA", 8, "ADR 




, 8, -!",B, "BIT 


1188: IF D8LCT L-- 




X", 8 


75 


DATA '•?'■, 0, "CP 




UEJ FA", 8 




X), ", I 




)", 0, "LDA , «CY 




X",8, "ADR Y", 




. «<) '.2 


L-l:rii^Ai*B» 


33 


DATA "ADC XL", 




A ,XH", 8, "CPA 


128 


DATA "ORA , CX) 


165 


DATA "ADI, CY), 




>", 8, "LDA , «CU 




8, "ADR 11", 8, "! 


367 


DATA "*", 6, "I" 


:coro isea 




8, "ADC YL", 8, " 




, YH", 8, "CPA ,U 




", 8, "ORA , CY)" 




", I, "AOI, tU), " 




)", 8, "!", 8, ":■' 




",8 




, 8, •!», B, "ADI, 


1288; \F t1»="2ND" 




ADC UL",a, "?", 




H", 8, "?", 8, "UE 




, 8, "ORA , <U>", 




, I, "?",8, "BUS 




, B, "!",8, "!",8 


328 


DATA "ORA, iCX) 




it), ", 3, '!",8 


LET T=28B 




B, "DEC XL", B, " 




J C6", 8, "UEJ D 




8, "?", 8, "ORI, ( 




+ ", 1, "BUS -", 1 




■"I", 8 




', 8, "ORA, ■CY)" 


teaa: ' 


1281: IF n» S»1MIN 




OEC YL", 8, "DEC 




o", 




X), ", 1 




, "BIT , <)", 2 


265 


DATA " ! ", 8, " ! " 




, a, "ORA, «<u>-. 




^8:PRINT "OP 


STOP 




UL", 8 


77 


DATA "UEJ E6", 


J 25 


DATA "ORI, CY), 


167 


DATA "BII, A, ", 




» 8, "LOA , «C) " 




8, "!", 8, "ORI, X 




IIOH ALPHA t 


1218:RESTORE 18*1 


35 


DATA ■?", 8, "AD 




8, "UEJ F6", 8 




", 1, "OR], CU), " 




1, "UUS , ", 1, "D 




,2, "!",8, -!",8 




CX), ", 1, "ORI, t 




0,RC) 7": 


8tB*T:F0R 6= 




C, XH", 8, "ADC, Y 


80 


DATA "CPA , (X) 




, 1, "?",8, "8ZS 




EC A", 0, "AOI, C 




, "!", 8, "V, 8, " 




<Y>, ", 1 




GOSUB 2€3: IF 


STO A: READ ti 




H",8, "ADC, UH", 




", B, "CPA , CY)" 




*", 1, "8ZS -", 1 




),", 3, "?",B 




!",8 


322 


DATA "ORI, »CU) 




R«="0*LET R= 


•,L:NCXT G 




8, "?", a 




,0, "CPA , (U)", 




, "ORA , (>", 2 


288 


REH 2nde TABL 


278 


DATA "!", 8, "!" 




- "i 1. "!". 8 




1 


i sun: i i! 


37 


DATA "UEJ C2, , 




8, "?", 8, "LOE , 


127 


DATA "ORI, A, ", 




E 




, 8, "", 8, ":",B 


323 


DATA ">", 8, " !" 


1802: C 


H99:REt1 AFF1CHAG 




", 2, "UEJ 02", 8 




(X>", 8 




J, "UZS , ", 1, "R 


218 


DATA *'!", 8, ■!" 




, "!", 8, "!", a, " 




, 8, "ORA , dO " 




WAIT 28: 


i 




, "VJEJ E2 rttur 


85 


OATA "LOE , <Y) 




OL", B, "ORI, O, 




, B, "!", fl, "!",8 




'.", 8, "!", 8 




, 2, "!",8, "•.-, 8 




**R]NT "OPTIO 


1588:Z*-CHR» CN»R 




n", 8, "UEJ F2", 




", 8, "LDE , CU)" 




", 3, "SEC", 8 




, "INC XH", 8, "1 


275 


OATA "!", 8, ":•' 




, '!", 8, "ORI, it 




N nNEnONICUE 


) 




8 




, 0, "?", 8, "8HS 


130 


OATA "DCS , (X> 




NC YH", 8, "INC 




,8, "!*, 8, ":*', 8 




), ", 3, "!", 8 




CO, RC) ?": 


I5I8:PR1NT f*;D»; 


^3 


DATA "ADC, CX)" 




+ ", J, "BHS -", 1 




", B, "DCS , CY)" 




UH", 8 




, "!", 8, "!",B, " 


338 


DATA "DCS , IICX 




GOSUB 7E3: IF 


E»;F*;": ";A 




. 8, "ADC, CY)", a 




, "CPA , (>", 2 




, 8, "DCS , CU)", 


215 


DATA "!", 8, "!" 




!",8, "!", 8 




>",8, "DCS , KY 




R*="0"LET 0= 


♦ ;B*;": "l» 




, "ADC, CU)", 3, " 


87 


DATA "CPI, A, ", 




8, "?", 8, "CPI, X 




, 8, "!",8, •':", 8 


288 


DATA "CPA , HCX 




)",8, "DCS , n CU 




8 


;■ -;n* 




?", 8, "SDE, CX)" 




1, "UHS , ", 1, "D 




H, ", ], "CPI, YH, 




, "!", 8, "R0P",B 




>", 8, "CPA , «CY 




>", 8, "!",8, "OF 


1883: T 


1528:LPR1NT C«;Oi 




>8 




RL, CX)",8, "?", 




"» 1 




, "t",8, "!",8, " 




>", 8, "CPA , «CU 




F", 8, ■"", 8, •!" 




"IITRE ?";T* 


;E*;F*;": "; 


49 


DATA "SDE, tY)" 




8, "C1N", 8 


1 33 


DATA "CP1,UH, " 




!",8 




)", 8, ":",a, ■!" 




, 8, " ! ", 8 


1884: S 


Oi;B»i": ~\l 




,B, "SDE, CU)",8 


38 


OATA "STA , XH" 




, 1, "?", 8, "DCA 


220 


OATA "SBC, «CX) 




,8, "!",6, "!",8 


335 


DATA "DCA , >CX 




"flOT a, ARRET 


»;" •*;«* 




, "?",8, "BCS ♦" 




, 8, "STA , YH", 8 




, CX)", 8, "OCA , 




",8, "SBC, «CY)" 




j " ! " • 8 




>",8, "DCA , t(Y 




7";s» 


1598: NEXT 1 




, 1, "BCS -", 1," 




, "STA ,UH", 8, " 




(Y>", 0, "DCA , ( 




, 8, "S8C, KCU)", 


285 


DATA "!", 8, "!" 




)", 8, "DCA, ll(U) 


I885:N 


1595:LF 8 




ADC, (>", 2 




NOP", B, "LDI, XH 




U)", 8, "?", 8 




b, ":", a, •■:•', a, 




, 6, "CPA , no ■* 




",8, "l-fB, "ATP 




PRINT "ZONE 


1688: END 


47 


DATA "ADI, A, ", 
1, "UCS , ", 1, "0 




, '*, I, "LDI, YH, " 

, 1 


137 


DATA "UEJ CC", 
1, "UEJ DC", B, " 




■'!",8, "!", 8, ": 
", 8 




, 2, "!", 8, "!",a 
, "DRL ,«CX>",8 




", 8, "!". 8, "ATT 
",8, "!",8 




A DESASSEHBL 
ER ": CURSOR 


?BBB:R*^INKEY* : 
IF R*=""GQTO 




RR, (X)",8, "RPU 


32 


DATA "LDI, UH, " 






225 


DATA "S1E",8, " 




, "!■', 0,"!",8 


348 


OATA "EOR , «CX 




28: INPUT "HI 


2E3 




•, 8, "RUF", e 




, \, •'?•', a, "lop, 




UEJ EC", 8, "UEJ 




'",8, "S8C, «C) 


238 


DATA "LOX , X", 




)",8, "EOR , «CY 




?";ni 


28I8:BEEP J '■ 


Sfl 


DATA "LOA , XL" 




UL,-", 1 




FC", 8 




", 2, "HLT",8, "S 




8, "LDX , Y",8, " 




)",8, "EOR , «CU 


1886: INPUT "N27"; 


RETURN • 


















^— 






































^. 


JiV j * 





* TI99 BASIC SIMPLE 



Suite de Is page 22 



4250 
4280 CALL HCHARCXCCI) ,YC(I) ,134> 
4290 NEXT I 
4300 RETURN 
4310 FOR I-U TO 21 
4320 CALL HCHARC I , 21 , 138,9) 
4330 NEXT I 

4340 CALL HCM0R(X9,Y9, 137) 
4330 DOTO 4230 
4360 PEM coulauri 
4370 RESTORE 4720 
4380 CALL SCREEN (2) 
4390 FOR 1-1 TO 16 
440O READ A,B 
4410 CALL COLORCI.A.B) 
4420 NEXT I 
4430 RETURN 

4440 REM **cll !■ mlti* 
4450 RESTORE 4360 
4460 FOR 1-1 TO 53 
4470 READ A, A* 
44B0 CALL CHAR(A.Ai) 
4490 NEXT I 
4500 FOR 1-1 TO * 
4510 READ P*(I) 
4320 NEXT I 

4330 READ N* ( V> ,N« (2) , N«<3) ,N« (4) ,EL 
0<l),EkO(2> ,EL0<3) 
4340 RETURN 
4350 REN d«t« 
4360 DATA 132, 1E1E18I81A18FFFF, 133, H 



4600 DATfi 144.7F3FIF0F07030I, I45.FFF 

FFFFFFFFFFFFF, 1 46.FFAAFFFFFFFFFFFF, 1 

47,40402 

0201010FEFF, 148, 1F0F0F0F0F0F0F0F, 149 

, FFFF8388BBBBB8BB 

4610 DATA 130.0F0E06030I, I51,FF666iF 

FFFFF7F3F, 150, FF6666FFFFFFFFFF, 101,0 

00376F37 

603,87,O0E44434FF404 

4620 DATA 1 12, 0, 104,0, 63. 081C1C1C081 

C36 ,61, 3838383838383838 

4630 DATA 130, 070703030101 , 131 ,FFFFF 

FFFFFFFFFFF, 132, E0E0C0C08080, 133, 337 

F3F3F1F1 

FOFOF, J34.33FFAAFFFFFFFFFF 

4640 DATA 133, 36FEFCFCF8F8F0F0, 1 13,0 

OOOOOOOOOFFFFFF ,114, FFFFFFFFOOFFFFFF 

, I 13.BDB 

DBDBDOOFFFFFF 

4630 DATA 1 16.FF80FFFFFFFFFFFF, 1 17, F 

F0OFFFFFF81BDBD, 1 18.FF01FFFFFFFFFFFF 

, 119, OOF 

FFF9999FFFFFF 

4660 DATA SURF.l N!,3 H!,20 N,30 M,F 

0ND,ESCORTEUR,TORPILLEUR, PORTE AVION 

, CROIBSE 

UR, 19, 11,3 

4670 DATA 1,1,112,224,7,27*144,1,7,2 

8, 143,3,6,26, 144, 1,6,27, 146,6,3,26, 1 

47, 1,3,3 

I, 148, 1,3,32, 149, 1 



FFFFFFFFFFF, 132, E0E0C0C0B080, 1 33, 337 
F3F3FIF1 

FOFOF, 1 34 , 35FFAAFFFFFFFFFF 
4640 DATA 133. 36FEFCFCF8FBFOF0, I 13,0 
OOOOOOOOOFFFFFF, 114, FFFFFFFFOOFFFFFF 
, 113, BDB 
DBDBDOOFFFFFF 

4630 DATA 1 I 6, FF80FFFFFFFFFFFF, 1 17, F 
F00FFFFFF818DBD, 1 18, FF01FFFFFFFFFFFF 
, 119. OOF 
FFF9999FFFFFF 

4660 DATA SURF.l N',5 H!,20 M.30 H.F 
OND.ESCORTEUR.TORPILLeUR, PORTE AVION 
.CROISSE 

4680 DATA 4,30, 130, 1,4, 31,131, 1,4,32 
, 138, 1 

4690 DATA 7,0,136,7,4,137,6,1,133,6, 
2, 133,6,3, 134 

470O DATA 16,8,130,16,12,132,13,8,13 
3, 13,12, 133,14,8,113,14,9,114,14,10, 
113,14, 1 
1,114, 14, 12, 113 

4710 DATA 13,9,116,13,10,117,13,11,1 
18 

4720 DATA 1,1,1,1,16,1,14,1,16,1,16, 
1, 16, 1, 16, 1, 1,6,1,4,1,6, 1,6, 1,6, 1,4, 



, 133, FFF 

F(TFFFFFFFFFFF,I36,030F1F3F7F7FFFFF. 1 
37.C0F0F8FCFEFEFFFF 



4370 DATA 144.FF7F3F 1FOF07O301 , 143vF 

FFEFCFBFOEOCOBO, I46,FFFFFFE7E7FFFTFF 

, 147,000 

0002020202020, 148,0000000404040404, I 

49, FFFFFFFFFFFFFFFF 

43BO DATA 136, 00070303FF7F3F , 137,003 

C7E7E7E7E3C, 138,0, 12O,003C3C3CFF7E3C 

, 121,000 

0OOOOOFO6OF0F, 122,O0OOOOOOFF66FFFF, 1 

23, O0O0OOOOFO6OFOF0 

4390 DATA I 74.0F0F0FOF0F0OFFFF. 123, F 

FFFFFFFFFOOFFFF, 126.F0F0FOFOFOOOFFFF 

, 127, 7F7 

F3F3F1F1F0F0F, 128, FFFFFFFFFFFFFFFF, 1 

29. FEFEFCFCFBF8F0F0 

4600 DATA 144, 7F3F1F0F0/0301 , 143, FFF 

FFFFFFFFFFFFF, 146,FFAAFFFFFFFFFFFF. I 

47,40402 

0201010FEFF, 148, 1 FOFOFOFOFOFOFOF , 149 

, FFFFB3M»m>BBBRBD 

4610 DATA 130,OFOE060301,131,FF6666F 

FFFFF7F3F, 138,FF6A66FFFFFFFFFF, lOI ,0 

0O376F37 

603, 87, 00E44434FF4O4 

4620 DATA 1 12,0, 104, 0,63, 081C1C1CO91 

C34, 61 , 3838303030383038 

4630 DATA 130,070703030101 , 131, FFFFF 




£l>iK.4 »" 



le 1 er hebdomadaire des programmes informatiques 

BONNE ANNEE $7CT 



Bravo, vous avez bien suiv 
cours d'assembleur de I'HHH- 
Hebdo. vous n'etes pas 
comme ces ignares qui ne sa- 
venl pas encore que 1 1 10001 1 
est eg a I a FQZERT en octogo- 
nal ou qui continuenl de vivre 
normalement sans etre capa- 
bles de traduire le decimal, 
I'hexadecimal, le pneumonal, 
le durandal ou I'hexachloro- 
phene de parcimonial. Vous 



MEME LES 
AMERICAINS 
ILSLONT JAMAIS 
FAIT CA I 

Dix mille balles de prix pour le 
meilleur programme du mois. 
c'est pas mal, mais depuis un 
an que ce concours existe. il 
faudrail peut-etre (aire autre 



concours trimestriel ! On ga- 
gnait un voyage chez les cow- 
boys pour une personne ? 
Bourn, on double: deux per- 
sonnes s'envoleronl chaque 



gourbi sordide au quatre etot- 
les de luxe mais les hambur- 
gers reslenl les memes que 
ceux du Macdo du coin de la 
rue. Vous pourrez ainsi emme- 



s jouez de ces traductions chose, du bon, du nouveau, du 



comme un equilibriste 
polyglott informal ie et vous 
vous riez de ce 7C1 en hexa 
qui est evidemment egal a 
1985 en decimal. Voire profes- 
seur est done content de vous, 
vous gagnez un bon point, 
vous repassez par la case de- 
part, vous n'allez pas en pri- 
son el vous pouvez continuer 
la partie. 

Mais non. pas la partie de Mo- 
nopoly ! La partie de rigolade 
a laquelle nous vous invilons 
chaque semaine et qui va 
continuer pendant les 52 se- 
maines qui nous arrivent en 
pleine poire des le premier 
Janvier. 



DEBOUT 
LES MORTS I 

Ceci dit Abes, , je trouve 
quand meme que, malgre nos 
efforts, cela ne va pas assez 
vite, on s'endort dans ce ca- 
nard, on se trains, il y a une 
eternite qu'il ne se passe rien • 
Et ce n'est pas parce qu'il y a 
un bout de bande dessinee 
cette semaine que je vais 
changer d'avis. II faul faire du 
nouveau el prendre des reso- 
lutions pour la nouvelle annee, 
c'est quelque chose qui se fait, 
et pour une fois nous allons 
faire comme les autres. En 
avant : petit Papa Noel, petit 
J6sus. monsieur le Ministre de 
la communication, monsieur 
Fabius, mon general, voila 
voici les bonnes resolutions de 
votre Hippocampe qui na pas 
peur des gros. 



qui remue. Allez, on change 
tout: vous voulez gagner un 
Macintosh ? Un ZX 81 ? Une 
imprimante ? Un panier garni ? 
Une nuit avec la mere Denis ? 
Un tuyau pour le tierce de di- 
manche ? Comment, vous ne 
savez pas ? Mais choisissez. 
merde c'est vous qui gagnez 
les concours, pas moi '. Hein. 
vous etes plusieurs ? Mais bon 
sang, c'est vrai ca ! Vous 
n'avez peul-elre pas les 
memes gouts. Vous preterez 
un cheque pour vous acheler 
ce que vous voulez ? Mais ca 
me fout mes bonnes resolu- 
tions en lair, comment je vais 
faire moi ? Vous etes emmer- 
dants, si les lecteurs se met- 
tent a faire la loi. ou allons- 
nous ? Vous voulez ma peau 
ou quoi ? 

Bon. lant pis on garde le 
mfime principe, vous laurez 
voulu I Mais on va quand 
meme monter le prix a 2 bn- 
ques, deux batons pour le plus 
costaud du mois. Et paf. 100 
% d'inflation. meme Mitterrand 
il est pas capable de faire 

PARIS 

SAN FRANCISCO 
DANS UN PANIER 
A CHAT 

II me resle le concours trimes- 
lriel. et je fais ce que je veux 
avec le concours trimestriel, 
je ne vous demande meme 
pas votre avis pour le 
concours trimestriel, vous 
I'avez dans le dos avec le 




trimestre pour San Francisco 
avec des bons pour six nuils 
d hotel et deux billets davion 
permeftant de visiter huit 
autres villes des Unis Slates of 
Amfirique. L'hotel passe du 



ner qui vous voulez avec vous 
sans etre oblige de le planquer 
dans vos valises ou dans la 
soule avec les chiens et les 
chats. 



MOU LE 
PROGRAMME, 
MOU ! 

Pour les deuligneurs qui vien- 
nent de debarquer. pas bou- 
ger, rester exactement Ihe 
same: deux logiciels chaque 
semaine pour le meilleur, et 
c'est bien paye pour ces fai- 
neants ! Eh. Oh, les feignas- 
ses sont majoritaires. ici ce ne 
sont pas les Nouvelles Litterai- 
res, on n'est pas la pour se ti- 
tiller les cellules grises I Ah 
bon. j'savais pas: cinq lots de 
consolation par semaine. c'est 
bon ? Oui ? Ok, Avanti ! 

HERSANTOGICIEL 

Bien. quest ce qu'on pourrait 
(aire de plus ? Comment ne 
pas se (aire boutfer par ces 
immenses groupes de presse 
qui ne vont pas tarder un joui 
ou I'autre a nous sortir un heb- 
domadaire avec de jolies 
images et beaucoup de budget 
de publicity ? J'ai une idee. Si, 
si. je vous assure, j'ai une 
idee, ca m'arrive quelques 
lots: nous allons devenir nous- 
meme un immense groupe de 
presse et faire une immense 
campagne de publicity, de I'af- 
fichage sur les abris-bus, de la 
radio, des pages dans la 
presse. des spots sur TF1. sur 
A2, sur FR3, sur Canal plus ou 
moins. sur Tele Kremlin, sur 
MOON TV, de laffichage sau- 
vage sur les jaquettes d'aca- 
demiciens, de la distribution 
de Iracts dans les couloirs de 
I'Armee du Salut. nous allons 
exposer au salon de I'Agricul- 
lure, chez Conforama et a la 
toire a la saucisse de Mornes- 
les-Wallet. nous organiserons 
le lestival international du logi- 
ciel orthopedique el nous de- 
cernerons chaque dimanche 
malin le prix inter-paroisse du 
programme de culte en direct 
de Notre Dame de Paris et 
croyez-moi, ca ne va pas etre 
Iriste ! Tiens. j'ai une autre 



idee, decidemen! c'est un 
bon jour pour les redae'ehefs 
nous allons rajouter des pages 
a i'hebdo. Tout en gardant 
bien sur des programmes pour 
vos machines cheries, vous 
trouverez une bande dessinee 
toutes les semaines, et une 
bonne, comme ceile de ce nu- 
mero ! 



TELE 7 

JOURSGICIEL 

Dites, approchez, plus pres. 
ecoutez: j'ai une troisieme 
idee, incroyable, non ? Allez. 
je vous la livre. tel quel: I'infor- 
matique a un rapport avec la 
tele puisque la quasi totalite 
des ordinateurs tonctionnent 
sur une tele. Done, nous allons 
regarder la tele AVANT vous 
et vous dire ce que nous en 
pensons. Vous pourrez ainsi 
conlinuer a casser de I'env.a- 
hisseur sur votre micro pen- 
dant que la tele sur laquelle 
vous jouez diffuse une nullite 
ou bien sauvegarder voire jeu 
pour foncer voir le seul film re- 
gardable de lannee sur TF1. 

EBDO CINEMA 
+ HHHH 

Bonne mere, comme dit la 
mienne qui est encore a Mar- 
seille et que je lui fais la bise, 
el a mon papounet aussi. ym 
honte: j'ai encore une idee a la 
cong ! Je peux la dire, 
maman ? Oui ? Merci: quand 
vous vous etes bien eclaie 
avec le dernier logiciel qui 
vient de sortir, quand vous 
avez regarde remission du 
siecle de Canal moins, quand 
vous vous etes deglingue les 
yeux avec le programme de 
I'HHHHebdo, comment pouvez 
vous encore vous envoyer en 
I 'air avec un ecran qui ne soit 
pas calhodique ? Commenl, 
hein ? Comment ? Elemen- 
taire, mon cher Zaxxon: avec 



Suite page 2 



BIDOUILLE GRENOUILLE 

Ou comment tricher, pirater, modifier, trafiquer, magouiller. bidouiller et grenouiller avec 

les logiciels du monde entier. 

Mais dans la legalite , au moins? Of course, mon general! Lire page 12 



C'est nouveau, 
ca vient tie sortir 

L'actualite de la~micro-informatique. Lire 
page 9, 10. 



DJIIIIIIIIII 

Les petits Mickeys d'EDIKA sont a la derniere page. 



PARTIE DE CARTE 

Vous trouvez a la page 8 un jeu de carle pour transformer 
votre Apple en a peu pres n'importe quoi. 



CONCOURS PERMANENTS 

Nouveau: 20 000 francs de prix au meilleur pro- 
gramme de CHAQUE MOIS. 

1 voyage pour 2 personnes en CALIFORNIE au 
meilleur logiciel CHAQUE TRIMESTRE (reglemenl 
en page interieure). 



Formation a I'assembleur 

Vous I'avez voulu, vous I'avez eu ! Forma- 
tion a I'assembleur sous deux formes, celle 
du professeur et celle du bldouilleur : pour 
tous les gouts I Lire page 1 7. 



DES PROGRAMMES POUR VOTRE ORDINATEUR :APPLE He ET lie 
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UCATA-REM 

Bonjour. Vous 3tes en direct de la course autour du 
catalogue. Pas de CATA-Marrants, mais ca peut arriver 
si vous utilisez ce programme qui vous permet d'ins- 
crire du texte dans votre Catalogue. Ceci est tres prati- 
que pour faire des commentaires sur des noms de fi- 
chiers ou afficher des copyrights. 

JEAN-CLAUDE DEVAL 

Mode d'emploi: 

A la ligne 35. le A peut etre change contre tout autre caractere. II 
n'est pas affiche a I'ecran, mais peul etre visible en effectuant un 
Dump du Catalogue. 




■ TEXT : HOME 

■ INVERSE : GOSUB 470 

■ NORMAL 
iS- - 16336 

■ DNERR GOTO 590 
CHR* 



REM CTRL J 



160 U* - CHR* (21): REM CTRL 
U t-» 

170 RC* • CHR* (13) 

180 D* = CHR* (4): REM CTRL D 

190 B* = CHR* (7): REM CTRL G 
(BELL) 

200 H* = CHR* (8)! REM CTRL H 

210 FOR I = 1 TO 8:0* = E* + H*: 
NEXT I 

220 TAB* = "A" + G*: REM TABULAT 
ION 

230 REM LE 'A' EST INVISIBLE A 
L'EXECUTION DE LA COHMANDE C 
ATALOG.SA C0NN6ISSANCE EST I 
NDISPENSABLEPOUR EFFACER LA 
REM.CELA PERMET DE MAROUER , 
LES COPYRIGHT (DANS LESQUELS' 
PEUVENT ETRE INSERES DES CH 
R*(7) ->BELL! 

240 MES* = "" 

250 GOSUB 370:FILE* ■= TAB* + MES 



GET A*: PRINT A* 
IF A* = "E" THEN 330 
IF A* - "A" THEN HOME i GOTO 
240 

IF A* < > "C" THEN 260- 
PRINT D*;" OPEN";FILE* 
PRINT D*;"CLOSE"iFILE* 
GOTO 340 

PRINT D*;"DELETE";FILE* 
MOT* = "VOULEZ-VQUS CONTINUER 
(0/N) : ":V = 22: GOSUB 560 
: GET A*t IF A* = "0" THEN HOME 
: GOTO 240 

IF A* < > "N" THEN 340 
TEXT : HOME : END 
REM 



PEEK IS): IF A* = H* AND LEN 
(MES*) > 1 THEN MES* = LEFT* 
(MES*, LEN (MES*) - 1): GOTO 
400 
410 IF A* = H* THEN MES* = " " : GOTO 

400 
420 MES* - MES* + A*: IF LEN (ME 
St) < 22 AND A* < > RC* THEN 
400 
430 IF MES* = RC* THEN MES* = "" 

s GOTO 400 
440 MES* = LEFT* (MES*, LEN (MES 



USE EN PAGE 



S P0UVEZ IN5ERER DES CARACTE 
RES": PRINT *'DE CONTROLE TEL 

QUE CTRL G (BELL) . u 
PRINT "LE CARACTERE INVISIBL 
E DE LA LIGNE 35 ": PRINT "D 
U PROGRAMME (UN 'A' POUR LE 
MOMENT) " : PRINT "EST MODIFI 
ABLE A VOTRE GUISE. ATTENTION 
"i PRINT "DE VOUS EN SOUVENI 
R SI VOUS VOULEZ " : PRINT "E 
FFACER LES REM": PRINT 

530 PRINT : PRINT : PRINT " 

<RETURN>": 
GET At: HOME 

540 RETURN 

550 REM 

CENTRAGE DES MOTS 



DANS LE CATALOG 

390 VTAB 10: HTAB 7: PRINT "ENTR 

ER LA LIGNE DE TEXTE : " 
400 VTAB 12: HTAB 9: PRINT LEFT* 

(MES* + " 

.,",21);: HTAB LEN (MES*) + 
9: VTAB 12: GET A*: X = PEEK 
(S) + PEEK (S) + PEEK (S> + 



470 MOT* = "s t"!V = 1: 

GOSUB 560: V = 3: GOSUB 560 

480 MOT* = " CATA-REM ":V = 2: 

GOSUB 560 
490 POKE 34,4 
500 NORMAL : VTAB 7: PRINT 
510 PRINT "POUR FAIRE TOURNER CE 
PROGRAMME , VOTRE"! PRINT "D 
ISQUETTE NE DOIT PAS ETRE PR 
OTEGEE ": PRINT "CONTRE L'EC 
RITURE.": PRINT j PRINT "VOU 



LEN (MOT*>i 



(40 ■ 



VTAB V: HTAB H: PRINT MOT*5 

RETURN 

POKE 216,0: HOME :V = 12iM0T 

• = "ERREUR"! INVERSE : GOSUB 

560: GET A«: NORMAL : PRINT 

RCtID*; "CATALOG": GET A*: RUN 




EUVE ROUGE 



TRS80 



Allez, latssez de cote les touches flechees, le joystick 
et parlez a votre TRS. II suffit de lui commander HAUT 
par ','intermediaire du micro du magneto cassette pour 
que celui-ci s'execute. Et comme on ne recule devant 

rien, dites BAS et 

Jacques GIRARD 

Mode d'emploi: 

Pour le 16K MEMSIZE 30000. 

Pour tester si cela peut marcher: 

Mettez votre magneto en enregistrement favec ou sans cassette, 

peu importe). 

Enlevez la telecommande. 

Teste? le programme suivant; 



10 A = INP (254) 

20 IF A AND 1 ELSE PRINT TERMINE" 

30 GOTO 10 



Sinon, essayez un micro moins sensible ou un casque de Walkman 
branche dans la prise du micro. 

Pour certains modeies (4 surtout) vous pouvez essayer le pro- 
gramme test suivant: 
10 A = INP (254) 

20 IF A/2 = INT A/2 ELSE PRINT TERMINE" 
30 GOTO 10 

Si ce programme fonctionne. akxs modifiez la ligne 920. 
Le 14° DATA: 32, dott etre remplace par 40. 
Le 27° DATA: 40 par 32. 




4*5 0-2 
1 46* POKE 326BB,BlPOKE16326,E 



8.8,0, !6,25B, 2 



100 ADR- 16084 :f 



MNEXT"G05UB133B 










49* 5L-lSB+SH>/2SFOR I-1T015BB.NEXT 


IP0KE326BB, 1 : RETURN 






3BB ■•«»••*»••»« CHANSENENT 












510 V-V-l-16»W=Bl:P0KE323BB,ViADR- 






VOTRE CHOIX MC 




F0RI-lT0NB-lrPRINTa768*I«2.CHR»U4l 






2* IF C<t OR C>4 THEN X=USR< 2B13 ) "RUN 110 












3B F0RI-33T01 STEP-<36-l> ■ X-USR) I*1B»236) INEXT :60SUB 7BB 


52B RETURN 


















,3B A»<81- - ■ ••#•*»* LA LONSUEUR DES A»II) ES' 




340 PRINTa32B,LEFT*<Al*,&4);i 










12-I,MM<A1«, I'H.ll |>PRINTB64B-I, 






6B »»<1)=CHH»CW)*- ■ '"•••** ILS REPRESENTED 




538 PRINTa312,LEFT*(A2»,64)ii 
























568 PRINTa47B,"FLEUVE ROUGE E 












37B '*•*•*••• nOUVEMENT DES B 








.98 A»14>-STRING»<4,?3>»- " 




588 IF R=l OR R-3 OR R-6 THEN 












57B IF R^2 OR R»4 OR R«3 THEN 








210 A*(t)«STBIN6*( 6,95 1+" ' 








((81-IF 












ID 63 >- 


I1HEH PR1NTB7B, -HORS 


23B A*IB>»CHR»I75)+*. 




CONTROL ■i>U-4895iS05UB63B 








24B A«(9)-CHR»(95)*-.-*CHH«<95l*- 
























26* A«(ll)-CHR><93>>-.-*ST8IN6>(3,99)+* 




63B ADR'1368B:P0KE ADR, 176IRETURN 






27* A»ll2>-STRING*<3,95)»-.-*STRING»<2,93H-- 
























29B A«<7)-A»<9)iA»(BI-A»<lB)lA«(2>-A«<5)>A*tll-A«t4>lD-E 


:60T033* 


67B PRINT" 








3M A»(7I-A«(3l!D=ia:S0T0 33B 




6B0 PRINT- a * 


. 


• ■ 


... 










































728 P0KE16526,8:P0KEI6527,127 






STEP 3iX-U9RIF)!NEXT 














»»LEET»<A2«.15) 












338 FORI-6B9T031A STEP-5 ■ X-USRI I ) INEXT 












333 GOSUB41B 












368 60SUB79«iCLSIFORI"BT063IPOKEt5616+I, 14B1 NEXT I PRINTS 












37B FORI-1T03 


" 


760 PR INT - 












380 l-RHD(2*l"2-i: IF PEEK ( X+15627 1-32THEN3BB ELSE POKE 


1S62T*X, 


77B PRINT 




"■■ "" 






7BB'F0RI=314 TO 6B9STEP5 1X«USR< I ) ih 


EXTtRETl 








798 POKE38BBl,PEEMVARPTR(Al» 












BOB P0KE3BBB2,PEEK(VA3PTH(A1» 




















42B IF PEEK(1433B)-12B ELSE IF PEEK! 1433B) ><6* THEN 42B 


ELSE RET 


BIO ^*l2^TO^ E>< '^ F "'«C A2 T 


+ . > 







928 DATA58. 1 



.127,62 .3.38.5 



L9, 235. 2*3.71 , 48,8. 3B. 22. 66. 23. , 1 , 2**, 24, 242, 1 




AUTOROUTE 



VIC20~ 



Le jeu consiste & parcourir le plus de kilometres possi- 
ble sur une autoroute. Facile ? Eh bien non, car vous 
circulez a contre sens {tres dr6le !). N'oubliez pas de 
faire le plein quand vous passerez a c&te des stations 
services. 

Joel KEMPF 

Mode d'emploi: 

Le programme toume sans extension, mais tient sur deux parties, ... 

premiere contenant les caracteres program mabtes, un sous-pro 

gramme routine en tangage machine et ia regie du jeu. 

La deuxieme partie contient le jeu lui-meme. 

1 REM 

Z REM* KEMPF JOEL * 

3 REM* 17 HNS * 

4 REM* « 

5 REM* PPESENTE * 

6 REM 

7 REM*— 




Suite da la page l m 



8 REM* AUTOROUTE * 

9 REM* * 

10 REM 

11 REM*PRG EN DEUX * 

12 REMfMRTIES POUR * 

13 REM* VIC-20 * 

14 REM 

15 PEM*PARTIF UN ft 

16 REM 

17 REM 

IS REM*RQUTINE L.M.* 
19 REM 

SSK;M:£:!f:ll:i:S;!E' M - 98 ' M '"' 1F ' 8 "- M ' E '' l7 ' , "' 98 ' M ' M '« : 

24 DflTH33.SA.E9,17.AA,98,9TJ,00,lF,FI2,FF 

26 DRTABB,E4,lE,9D,FR,lE,BD,E4,96,9r,FR,96 CA.DO.Fl 

28 DATAfi2,E5,BIi,FF,irj,9Ii,15.aE,BD,FF,95,91M5.96,CA,C0,Fl 

| ™TpA6.00.A5.C5,C9,lD.D0,07.E0,01,F0,0E,Cfl,D0,09,C9,25.D0,07,E0,14,F0,03,E3,£ 

35 DATAfl0,lB,16,69,CE,flA,Br.00.1F,C9,20,F0,06,20.C5,tB,4C,7A,lB,20.D6, IB 

40 DRTft8fi.38.E9,i?.AR,BD,08,lF.C9,20,F8,06.20,C5.1B,4C8F,lB,20,D6.1B 

45 DATAE3,BD.90,lF,C9,29.F0,06,20,C5.1B,4C.fl0.1B.20,D6.1B 

50 DRTAE9,BD,00,1F,C9,20,F0.06,20.C5,1B,4C,B1.1B,20,D6,IB 

55 DRTH8R, 38. E9, 17. Rfl. Bf. «0, IF, CS, 20. F0, 04, 20. 05.16.60,20,06. IB, 60 

60 DRTRa9,2fl,9D,90,lF,R9,06.9D,00,97.HS.[iC ,89.011 JR. 08,60 

65 BflTR98.9D.00,lF.fi9.80,9H,00.97,r'3.60 

67 REM 

68 REM*CFlRflCTERES PR* 

69 REM 

?8 DPTH7384, 189.255. 165, 165,36.0.0,0 

72 DfiTR7392,0, 8,9, 0,0,0, 0,0 

74 I>RTfl7400,60, 126, 102, 102,66, 126,60, 189 

76 DRTA7408, 0,8,0,0,0,0,0,0 

78 HRTA7416, 6?, 126.36, 185, 189,255, 189. 189 

80 BRTA7432 ■ 28 ■ S2 ■ 226 ■ 138,190.190,126,62 

82 DATA7448, 255, 255,255, 255, 255, 255.255. 255 

84 WTR7456, 255, 255. 231. 102, 255, 195. 126. 60 

86 DATfl?464,36, 165. 189,231, 189,165,60,255 

88 DATR7472, 120,44 ■ : . ; ;,., 

90 DATA7504 , , 73 . 42, 20 . 107 ■ 2a, 42, 73 

92 DRTR7488. 126,129, 153, 153, 139, 189,153,133 

94 DRTA7496, 129, 126, 255, 129, 129. 235, 126, 126 

96 BRTR999 

206 REM 

201 REMftLECTURE DATA* 

202 REM 

210 POKE36379, 29 
220 GOSUB1088 
JE3008 
240 PRINT"MBR'EUILLEZ PRTIENTER L 
250 P0KE56,27:P0KE52,27CLR 

268 FORI=6912TQ?136RERDfl«;S=RSCaEFT«<fi»,l): 
270 X=ASC(RIGHTS<fl», 1 ) >-48 : IFX>9THENX=X-7 
280 P0KEI,S*16+XNEXT 

290 F0RI-7168T07679; POKEI , PEEK< 1+25600) : NEXT 
300 READA I Ffl=939THEN320 

310 FORI=0TO7REflDX:F'OKEn+I,X NEXTGOTD300 
328 POKE0, 10 

339 PRINT")mN0ULE2-VQUS VOIR LES REGLES DU JEU (OVN)' 

340 GETR*:iFfl**"N"THEN370 
358 IFfttO"Q"THEN340 
360 GOSUB2000 

370 PRINTMWKHHRGEZ LFI 2ND PflRTIE" 
380 PRINT"|TRPEZ SHIFT 8 RUN/STOPS" 
398 END 

1000 REM 

1001 REM*PRESENTflTION 

1002 REM 

1010 PRINT'TJMM 

1020 PRINT"IM I gi ■» 

1830 PRINT"IIS m AUTOROUTE *> ■" 
1040 PRINT"»U ■ a 5" 

1050 PRINT "IIS 1" 

1060 RETURN 
2000 REM 

?001 REM*REGLES JEU * 
2002 REM 



I PETIT INSTANT } 



'-48 : lFS>9THENS=S-7 



2020 PRINT-MWOUS VOUS ENGAGEZ SUR UNE AUTOROUTE OH DES CRMIONS FOUS ROULENT " 

2030 PRINT'S CONTRE SENS." 

isiBLE R « NT " W ''° TFfE BIJT EST DE LES EVITER P0UR f^KCOURM LE PLUS DE KILOMETRES Pu 

2030 PRINT"»'0US RVEZ DROIT H 3 HOC i DENTS. " 

2060 PRINT"WS=lPPUYEZ SUR UNE TOUCHE", 

2070 GETA*IFfl*= , '"THEN2070 

usieee 

2090 PRINT"«(FRITES ATTENTION DE NEPRS TOMBEP EN PANNE D " ESSENCE ... " 

3080 REM 

3001 REM*BRUITRGE ft 

3002 REM 

3010 P0KE36878, 15 
3020 FORX=128T0254 

3039 P0KE36376,X 

3040 FORI=1TO10-HEXT 
3050 NEXT 
3060 PijKE36376,0 
30?0 RETURN 



REM KEMPF , 

1 REM 



JEL 



12 REM AUTOROUTE 

13 REM 

14 REM POUR VIO-20 

15 REM 

16 REM PflRTIE DEUX 
500 V=36873 RE=0 
518 PRINT'Tr 

520 POKE0,10 
530 POKEV+1,25 
540 POKEV-9,255 



3 POKEV, 15 

3 HS(n = "«Ht## «#*«" 

i A*<2> = "WI##fl «*«" 

3 flS<3>="Wf## ##" 

3 Hf ■ 4.' = ' I *m#tt* #■■ 

3 fi«( 6) «"»### « ■ 

3 R*C9>="*MMMI a < | |T 

3 R*C5>=R«C4>:R*<7:>=fl*<6>:fl*(8>=A«<7> 

3 V0"8 i KM=0 DI = .85 i CD-8- SO=201 ! VS=. 005 1 

3 GOSUB 11008 



1008 SVS6912 

1010 PRINTASU); 

1020 IFP£EK!8139>*23RNPPEEK<8137>=33THENGOSUB8000 

1038 IFRNI"! i>.97THEH00SUKMee 

1040 GDSUB5900 

1050 IFPEEK<36B77)O0THENGOSUB3000 

1060 WMO1+.01 

1070 CD=CD+1 

1080 IFCD=200THENDI=DI-.03-OD=0-VS«. 15 

1090 P0KEV-4.S0 

1100 SO=SO-VS 

1110 E=E*I 

1 128 IFE=24THENGOSUB4090 :SO=280 : VS=.905 CD=0 

1139 IFE'lUTHt'CFf:;;. ItiriTHFMOf^.JErfitiM ::iiTO10O0 

1140 ID=DI 
1158 OPTO 1000 

2000 REM flFF CRMIONS 

2010 X-INT<RNDU)*14> 

2820 P0KE7684+X, 37 POKE33404+X, 6 

2030 IFPEBO T7B6*H --;-;. 36 POKE38426+X . 6 

2040 RETURN 

3000 REM RCCIDENT 

3018 POKEV- 1.220 

3028 FORL=15T01STEP-.7 

3030 POKEV, L 

3040 FORM=1TO10POKEV-14,12*PP=-PNEXT 

3030 P=-P 

3060 NEXT 

3070 POKEV-1,0 

3080 POKEV, 15 

5t!5fi '.'O=V0+l 

3108 IFVO=3THENGO3UB10008 

3110 RETURN 

4000 REM PANNE ESS. 

4010 PQKEV- 4.8 

4030 F0RT=IT03 

4040 IFIK0THENPPIIIT"-»MBPRNNE D'ESSENCE" 

4850 IFII>0THENPRINT"1fci«WRNNE D'ESSENCE" 



■ !!■ 



■II 




4070 POKEV-2.280 

4880 FORTT=1TO400 NEXT 

4099 POKEV-2,0 

4100 NEXT 
4110 PRINT 1 
4129 GOSUB3000 
4139 RETURN 
5000 REM S.PRG-fRFF. 
5010 IFRNIK1»EITHEN&OSUB2000 
5020 RETURN 
6000 REM DEBUT RFF. 
6019 PRINT"!** 

6029 SVS6912 

6030 PRINT "IB** 
6040 SVS6912 
6850 PRINT"ISWIt# 
6060 RETURN 
7090 REM POMPE ESS. 
7010 DI=.94 

7020 1 = 1 + 1 1 

7030 IFI=9THFNII=-1 

7040 IFI=0THENII = 1 1 = 1 DI = IIr E=9 

7056 RETURN 

8008 REM PLEIN ESS. 

8010 POKEV-4,0 

8020 POKE3116.3S POKE38836. 6 

8030 F0RSO=lT9TCi299 

8040 P0KEV-4.S0 

8850 FORTT-1TO150:NEXT 

8069 NEXT 

Sfi^'3 ri:i!Edl!t:. J2 : POKE38836,l 

8980 E=25 CD=9 VS=.R05 

8890 RETURN 

9008 REM RFF RMBUL. 

9010 X=INT<RNB(1>*14> 

9929 POKE7684+X.40 POKE38404+X,2 

9030 POKETTflfi+X 41 J4- 

9048 RETURN 

10000 REM FIN 

10010 PRINT":]" 

10929 POKEV, 9 

10030 KM=INTCKM*10V10 

10049 FOPI=0TO20STEP3 

10050 POK|768|+2|*I.3^POKE770I+22*I,3i : pOKE38400+22*I,0 
18860 Pn jm^+2|*I , 33 P0KE7-723+22*! , 29 : P0KE38422+22*! , i 

100?e P 0KE3846 + + 2 *' ' Z7 ' P0K:E774S+Z2 * 1 ' 2? • P0KE38444+22*! . 8 ■■ 

10880 NEXT 

10090 PRINT"a*WWMM'+*t*******##" 

10100 PRINT"li»N! »IJTORiXITE *" 

19119 PR1NT"IBKMI****«*******" 

18120 PPIHT-pHlrtHr/iXi- flVEZ PRPCniiRM" 

it-iiii if(m:rethenre=km 
KU4C- pp;t.-r'»«rur' kilometres" 
101 'SO FPlNT"ia H 0LE RECORD EST DE" 
19169 PR I NT "WW" RE" KILOMETRES" 

18179 print ^:iw>ir./i:i.LiL.t:--VNiji. reiouer- 

10209 GETRJ IFRS="Q"THEHPRINT' i T l PnKEV.I^ OOTO600 

!0.: : -lfi IFAJ.-::; ■'H"THEH19200 

l O^iEi P-JKEV-3,240; POKEV+1 , 27 ■ POKEV- 14, 12 ' PPINT"^" 

10230 END 

11900 REM* INSTRUCTION 

[1028 PRINT" GfiUCHE " '.■ DROITE" 

iiO.-0 for;-:=ito3000;NEXT 

M04m print"3» 

11050 RETURN • 



un Grand ecran, une toile, une 
peloche, autrement dit le Cino- 
che, le cine, le ci-ne-ma. Eh 
bien qui c'est qui va alter se 
larcir les salles zobscures 
pour vous en causer dans 
I'hebdo ? Qui c'est ? C'est le 
martyr que nous venons d'en- 
gager et que nous avons atta- 
che dans la cave pour qu'il 
s'habitue a zigzaguet dans le 
noir quand les realtsaleurs lui 
tireronl dessus a la chevroline. 



SUE TIE NS 

MES PROMESSES.. 

Mesdames, mesdemotselles, 
messieurs, ceci etaient les re- 
solutions du journal que vous 
nous faites I'honneur, la joie et 
le plaisir de nous lacheter 
louies les semaines et que si 
vous jurez en crachant par 
terre de continue!, nous on en- 
verra la publicity sur les roses 
et on continuera a dire du mal 
de tout le monde. comme ca. 
pour le plaisir et on tiendra les 
promesses qui son! la haut, au 
dessus, quant au sujet de la 
teloche, du cinoche, de la be- 
doche et des concours men- 
sueloches et trimestrieloches. 
Et que si je mens, non seule- 
ment je vais en enter, mais les 
concurrents vont comme d'lia- 
bitude nous piquer nos idees 
et j'aurais mieux fait de termer 
ma grande gueule el que les 
bras vont me raccourcir, que 
les turoncles vont me pousser 
sur le nez et que, avec des 
bras aussi courts, je pourrais 
pas me le gratter, et que je 
vais mourir a cause. 
Promesses d'ivrogne a tenir 
pendant le premier trimestre. 
Au fou I 




Possesseurs d'Aquarius, re- 
jouissez-vous: les logictels 
arrivent entin! Trente cfentre 
eux doivent sortir prochaine- 
ment sur le marche. Parmi 
ceux-ci, des jeux originaux 
tels que Space invoders. 
Phrogger, PocMon et D-Fen- 
der. Serait-ce etfectivement 
I'aube de I'ere d'Aquarius ? 




SINCLAIR EN CIRE 

Ca y est. Lord Clive Sinclair 
entre chez Madame Tus- 
saud! II s'agit de r equivalent 
a Londres de notre musee 
Grevin national. Une effigie 
en cire de I'inventeur sera 
exposee a partir d'Avril pro- 
chain dans certe fameuse 
maison de Baker Street. II 
tiendra a la main une de ses 
microteles. A laquelle ne 
sera relie aucun ordinateur. 
Etrange. non? (NDLR: el un 
Georges Leclere en chocolat, 
c'est pasune bonne id6e ?) 




_PETROLE 

En chacun de nous, il y a un JR qui sommeille, r6veil- 
lez le votre avec ce petit programme excitant. 



suite duN'62 Gines osmont 



384 ST* 13 

385 -C0UT: - 

386 fifiCL 13 

387 "I- H*' 
W PVIEH 
389 RCL 13 
318 XEO 15 

311 RCL 13 

312 ST- 12 

313 CTO 21 
314*LBL 23 

315 -C EST 1CI ..' 

316 flVIEU 
31? BEEP 

318 PSE 

319 FIX 1 

328 -POCHE EH ■ 

321 fffiCL 11 

322 flVIEU 

323 PSE 

324 CLfi 

325 FIX 8 

326 XEO 33 
32? STO 87 

328 RCL 1KB 87 

329 18 . 
338 * 

331 FRC 

332 16 

333 * 

334 IHT 

335 188 

336 * 

337 STO 87 

338 -OOftHTITE =- 

339 flVIEM 

348 PSE 

34i an 

342 HRCL 87 

343 *l- KB" 

344 DVIEU 

345 PSE 

346 CF 88 

347 GTO 88 
348«LBL C 

349 -F0RRGE- 
358 AVIEH 

351 PSE 

352 "QUELLE CASE?" 

353 TOHE 9 

354 PROMPT 

355 STO 11 

356 -PROFOHBEUR ?' 

357 TOHE 9 



358 PROMPT 

359 18 



361 ST+ 11 

362 18 

363 * 

364 Xt2 

365 58 

366 * 

367 STO 13 

368 -C0UT: ■ 

369 flRCL 13 
378 "F M*' 

371 DVIEU 

372 PSE 

373 RCL 13 

374 XEO 15 

375 RCL 13 

376 ST- 12 
377»LBL 31 

378 RCL 81 

379 18 
388» 

381 IHT 

382 18 

383 / 

384 XEO 16 

385 FS? 68 

386 GTO 32 

387 RCL 82 

388 18 
389* 
398 IHT 

391 18 

392 / 

393 XEQ 16 

394 FS' 88 

395 GTO 32 

396 RCL 83 

397 18 

398 * 

399 IHT 
488 18 

481 t 

482 XEO 16 

483 FS? 88 

484 GTO 32 

485 RCL 84 

486 18 

487 • 

488 IHT 

489 18 
418 / 

411 XEO 16 



412 FS' 88 

413 GTO 32 

414 RCL 85 

415 18 

416 * 

417 IHT 

418 18 

419 / 

428 XEO 16 

421 FS' 88 

422 GTO 32 

423 -ERREUR. . , ■ 

424 flVIEU 

425 TOHE 5 

426 TOHE 3 

427 PSE 

428 CLfl 

429 FIX 1 
438 flRCL II 

431 "F VIDE" 

432 AVIEH 

433 PSE 

434 FIX 8 

435 GTO 88 
436*LBL 32 

437 -PWGHIFTQUE- 

438 flVIEU 

439 BEEP 
448 XEO 33 

441 STO 8? 

442 RCL IND 87 

443 IB 

444 * 

445 FRC 

446 18 

447 * 

448 IHT 

449 188 
458 * 

451 STO 87 

452 -VOICI " 

453 «CL 87 

454 -J-H8- 

455 flVIEU 

456 PSE 

457 XEQ 33 

458 STO 11 

459 8 

468 STO IND II 

461 RCL 87 

462 ST+ 86 

463 CF m 

464 XEO 34 

465 "VOUS flVEZ- 




466 flVIEU 

467 PSE 

468 CLfl 

469 flRCL 86 
478 -V MB PTRL" 

471 flVIEU 

472 PSE 

473 GTO 88 
474*LBL 33 

475 RCL 11 

476 IHT 

477 5 

478 / 

479 ,1 
488 - 

481 1 

482 * 

483 IHT 

484 RTH 
485*LBL 34 

486 1588 

487 RCL 86 

488 X<=V 

489 RTH 

498 -OUEL DOttMflGE- 

491 flVIEU 

492 TOHE 3 

493 TOHE 1 

494 PSE 

495 -STOCKflGE HAX" 

496 flVIEU 

497 PSE 

498 -=15«8HB PTRL" 

499 flVIEU 
588 PSE 

581 CLfl 

582 RCL 86 

583 1588 

584 - 

585 flRCL X 

586 -FHB PERMS" 

587 flVIEU 

588 PSE 

589 1588 
518 STO 86 
511 RTH 
5I2*LBL D 

513 -RAFFIHAGE- 

514 AVIEH 

515 PSE 

516 -COMBIEH MB V 

517 TOHE 9 

518 PROMPT 

519 STO 87 



528 RCL 86 

521 vxr> 

522 GTO 41 

523 XEO 42 

524 -COUT: " 

525 flRCL 1 1 

526 -FM$- 
52? OVIEH 

528 PSE 

529 RCL 1 1 
538 XEO 15 

531 RCL 11 

532 ST- 12 

533 RCL 87 

534 ST- 86 

535 RCL 8? 

536 18 
537* 

538 ST+ 88 

539 XEO 43 

548 "VOUS ftVEZ" 

541 flVIEU 

542 PSE 

543 CLfl 

544 flRCL 88 

545 "F HL- 

546 flVIEU 

547 PSE 

548 -B ESSEHCE- 

549 flVIEU 
558 PSE 
551 GTO 88 
552*LBL 41 

553 -IMPOSSIBLE- 

554 flVIEU 

555 TOHE 3 

556 PSE 

557 -RESTE ' 

558 flRCL 86 

559 -Hffl" 
568 RVIEH 
56! PSE 

562 SF 82 

563 GTO 88 
564*LBL 42 

565 XEQ 99 

566 1 

567 + 

568 RCL 87 

569 * 

578 STO It 
571 RTH 
572«LBL 43 
573 18888 



574 RCL 88 

575 X<=V 

576 RTH 

57? -SURPROD...- 

578 flVIEU 

579 TOHE 3 
55* TOHE 1 

581 PSE 

582 "STOCKflGE MAX" 

583 flVIEU 

584 PSE 

585 "18.888 ML ESS 1 

586 flVIEU 

587 PSE 

588 CLfi 

589 RCL 88 
598 18888 

591 - 

592 flRCL X 

593 -FHL.PERDOS- 

594 flVIEU 

595 PSE 

59? STO 88 
598 RTH 
599»LBL E 
688 -VEHTE ESS." 

681 flVIEU 

682 PSE 

683 XEQ 99 

684 5 

685 • 

686 IHT 

687 8 

688 ♦ 

689 18 
618 / 

611 STO 18 

612 *PRIX VEHTE" 

613 flVIEU 

614 PSE 

615 CLfl 

616 FIX 1 

617 flRCl 18 

618 -F *VL" 

619 flVIEU 
628 PSE 

621 FIX 8 

622 "COMBIEH ML ?" 

623 TOHE 9 

624 PROMPT 

625 STO 87 

626 RCL 88 

627 X<Y? 

628 GTO 61 



629 -VEHDU ..." 
638 flVIEU 

631 BEEP 

632 PSE 

633 RCL 8? 

634 ST- 88 

635 RCL 8? 

636 RCL 18 

637 * 

638 STO 87 

639 '* " 
648 flRCL 8? 

641 'FM*- 

642 flVIEU 

643 PSE 

644 RCL 87 

645 ST* 12 

646 GTO 88 
647*LBL 61 

648 -IMPOSSIBLE- 

649 flVIEU 
658 TOHE 3 

651 PSE 

652 "RESTE ■ 

653 flRCL 88 

654 -FHL" 

655 flVIEU 

656 PSE 

657 SF 82 

658 GTO 88 
659»LBL H 

668 "RflPPELS :• 

661 flVIEU 

662 PSE 

663 RCL 89 

664 1 

665 - 

666 "JOUR = ■ 
66? flRCL X 

668 flVIEU 

669 TOHE 7 
678 PSE 

671 "VOUS flVEZ :• 

672 flVIEU 

673 PSE 

674 Clfl 

675 flRCL 12 
6?6 -F HJ" 

677 flVIEU 

678 TOHE 7 

679 PSE 
688 CLfl 

681 flRCL 86 

682 -HB PTRL" 

683 flVIEU 



S CLfl 



687 flRCL 83 

688 -FML ESS.' 

689 flVIEU 
698 TOHE 7 

691 PSE 

692 SF 82 
693*LBL 88 

694 FS'C 82 

695 CTO 31 

696 FIX 8 

697 -J0UP= ■ 

698 flRCL 89 

699 flVIEU 
788 PSE 

781 1 

782 ST+ 89 

783 32 

784 RCL 89 

785 X=V> 
?86 GTO B5 

787 28 

788 ST- 12 

789 58 
718 RCL 12 

711 X>Y? 

712 GTO 81 

713 -BTTEHTIOH.. 

714 RVIEH 

715 TOHE 5 

716 TOHE 7 

717 PSE 

718 "RESTE " 

719 flRCL 12 
728 -FHJ- 
?21 AVIEH 
722 PSE 
723*LBL 81 

724 "ACTION ?■ 

725 TOHE 9 

726 TOHE 9 

727 TOHE 9 

728 PROMPT 
729*LBL 97 
738 XEO 99 



731 .5 
732* 



737 18 

738 * 

739 IHT 



742 RTH 
743*LBL 98 

744 XEO 99 

745 5 

746 * 

747 IHT 

748 1 
74-9 + 
758 RTH 
751*LBL 99 

752 RCL 88 

753 9821 

754 * 

755 .211327 

756 + 

757 FRC 

758 STO 88 

759 RTH 
?68*LBL 85 

761 -COHCLUSIOH : 

762 flVIEU 

763 PSE 

764 CLfl 

765 flRCL 86 

766 -FM8 PTRL* 

767 flVIEU 

768 PSE 

769 CLA 
778 flRCL 88 

771 "FML ESS" 

772 (IVIEU 

773 PSE 

774 CLfl 

775 flRCL 12 

776 -F W 

777 flVIEU 

778 PSE 

779 RCL 86 
786 ST- 12 
781 18 
782* 

783 ST+ 88 

784 RCL 88 

785 RCL 18 

786 • 

787 STt 12 

788 -SOIT TOTAL :' 

789 flVIEU 
798 PSE 

791 CLfl 

792 flRCL 12 

793 "F Hf 

794 flVIEH 

795 BEEP 

796 .END. « 



MINI TABLEUR 



FX702P 



Un tableur SUr FX 702P, OU leS aventures d'un petit en zone P1 pour calcuter PV TIC sera done: 



micro qui n'a pas peur des gros. 

M. DACLIN 
1ere option: Creation d'un tableau 

Rappelons en donnanl un exemple, ce quest un lableur. 
Exemple: Vous etes commercant el vous avez actiete 5 articles de- 
ferents a un certain prix d'achat (PA). Vous souhaitez realiser un 
certain benefice (B) de 20 % et Irouver votre prix de revient qui 
constituera le prix de vente Hors Taxes (PV HT) et enfin, connaltre 
le prix de rente au client compte-tenu d'une TVA de 18,60 % (PV 
TTC). 
Voire tableau aura done Failure suivant: 



ligne 300 A(A) = A(A - 1 * V) x 1 .186: RET. 

A cet instant, vous etes prets a faire toumer le programme principal 

pour qu'il remplisse les cases vides de votre tabeau. 

II laut signaler que "mini tableur" vous permet en plus, de rajouter a 

votre tableau une colonne supplemental re qui realise ie total des 

donnees rangees dans une meme ligne du tableau. Dans notre 

exemple, nous aurions: 



Pour visualiser le tableau, uliliser les touches 6 pour aller a droite, 4 
pour aller a gauche, 8 pour monter dans le tableau, 2 pour descen- 
dre. Votre position vous sera indiquee apres chaque emplacement 
avec la valeur situee dans la case. II est necessaire de garder le 
doigt appuye Sur la louche un petit moment pour pouvoir se depla- 



ligne PA 


Article 1 

50 F. 


Article 2 

100F. 


Article 3 

150 F. 


Article 4 

200 F. 


Article 5 

250 F. 


liqne 1 B 












Jiqne 2 PV HT 












liqne 3 PV TTC 













Les formulas de calculs seront les suivantes: 
B-PAx 0,2 
PV HT = PA + B. 
PVTTC = PVHT x 1,186 

Le casio ne les connaissant pas. nous devons les rentrer dans sa 
memorre. Comme le programme de Iraitement est situe en zone PO, 
les formules seront rentrees en zone P1 . 

Les calculs etant dependants les tins des autres, nous devons les 
rentrer en tonction de leur position relative dans le tableau. Le pro- 
gramme etant congu pour les trailer dune cerlaine facon, il vous 
faudra rentrer ces formules sous une cerlaine forme, du genre A (A 
- k * V) = ... ou k est le nombre de ligne gui separe le terme en 
cours de calcul, du terme utilise. 

Par exemple, pour calculer B. II vous faudra rentrer en zone P1 
Lkjne 100 A(A) = A(A - 1 • V) " 0,2: RET 

Le terme A(A) represente B et A(A - 1 ' V) represente PA (le prix 
d'achat). il est note de cette tacon car PA est situe une ligne au- 



Artlcle 1 



Article 5 



TOTAL 



B1 + B2 + B3 



ERRATUM SUR FX702P 

TEMPLE du n° 59 

ligne 16 GSB 70: IF D$ = "N": V 

= V-U:W=-W = Z Z: 

GOT064 



PV HT1 + PV HT2 
+ PV HT3 + PV HT4 
+ PV HT5 



PV TTC1 + PV TTC2 
+ PV TTC3 + PV TTC4 
+ PV TTC5 



Pour calculer PV HT, il faut rentrer en zone PI ligne 200 A(A) = A 
(A - 2 ' V) + A(A - 1 ' V). A(A) represente ici, le calcul de PV HT. 
A(A - 2 • V) represente PA gui est situe 2 lignes au-dessus et bien 
entendu A(A - 1 * V) est relatif a B gui est situe une ligne au- 
dessus de PV HT. 
Vous avez contorts ce mecanisme maintenant. La formule a rentrer 



Comment operer?: 

Faire F1 PO. A le question choix (1,2) repondre 1 pour creer le ta- 
bleau, entrer le nombre de colonnes sans compter la colonne de 
gauche avec les noms. ni leventuelle colonne Total (dans notre 
exemple ce sera done 5). Rentrez ensuite le nombre de lignes gui 
est dans notre exemple: 4. 

Ensuite, le FX vous demande si vous avez besoin d'une colonne 
supplementaire du type TOTAL, repondez 1 EXE OUI, EXE si 
NON, Si vous avez repondu 1, entrez ensuite le nom de cette co- 
lonne supplementaire. 

Repondez ensuite a la guestion "lignes connues?" en rentrant le 
nombre de lignes connues (ici 1 dans notre exemple) e'est-a-dire la 
ligne PA. 

La machine demande ensuite le litre des lignes (ici PA, B...) puis 
vous entrez les valeurs dans les lignes connues en vous rappelant 
leur titre et le numero de la colonne. 
La machine effectue les calculs et vous renvoie au menu general 



LIST n 
It MIT iSiiHP'CH 
OB (!-2i",9i60 

ni 

LIST II 

i vac 

1! IHF "COUIFrC 

,L.T,nS: !"t". : 

:IFK=l!lH"™ 

S*,St 
26 Ik? "LI6H COM 

UE",K:T=m;h=1 

*M-l:Z=-M 
22 FOR E=t TO H»V 

STEP Vi Ik? "TIT 

K",H»<E> 
25 FOR H=E*1 TO Ct 

E 
3« PRT fl((E):IF Zi 

ilSSB lOWZtOOT 

41 
35 IHP fld! 
41 NEXT B:Z=Z«fNE 

XT E:1F P=«:SOT 



5! FOP R=2«¥-l TO 
L»V-I STEP UFO 
K IMK TO H: 
B(B!=IKI!)*fl!Bi 

53 KXT LMXT m 
OT0 18 
LIST 12 

18Z=» 

15 X=Zf60T0 21 

2t PPT r»(Z)lt9 8 
;0(X) 

21 E=t;J=t:PRT m 
Z):«=IET:IFB* 
=™ THEN 2! 

39 IF B«="6" THEM 
7t 

(I IF Bt='4" THEH 

lie 

58 IF tt=T THEN 

lit 
61 SOTO 190 
71 IF FPI1C «>:-c-( 

!/V=t THEN 15 



98 IF FP«C «X-C-S 

)/V=t;6SB28« 
95 IF t>e:6=tftET 
lit UUitOTO 2t 
III IFFfflC KX-1V 

H THEH 15 
121 IF X=ZIX=X*C* 

E=2HR<188iEOT0 
E 
141 X=X-UtOTO 28 
161 U=1=J=C+R 
178 F=»:IF (X-J)« 

KX=X*lrtV>HfZ=V 

•TNT <X/»:F=2 
175 WiBSJWIFF 

«« THEH 182 
18» X?X-V««:Z=;-7<II 
102 IF X=Z THEH 15 
185 6OT0 2! 
198 If-1:M«H:80T0 

178 
288PR7CS(8;S(:1F 

E« Tie 28 
285 RET • 



Pour vous punir de votre desobeissance, la princesse qraphishe 
noire, maitresse du temps vous a projete dans un lieu 
maudit: DINAME II. Protege par des gardes sans 
merci, infests de pieges models et de monstres, vous 
W)ila prisonnier de ce royaume. Aurez-vous le courage 
supreme ou la folie de defier les forces du Mai et de 
retrouver votre epoque ? 



DINAME II 



LA PR; 

UN GARDe 

un honstrs 
un trcsor 
une clef 



_ 'ORMULE HRGIOUE 
I OU ) UNE P0RT6 
J OU I UK PASSAGE SECRET 

■ OU ■ UNE TRAPPE EN PIEI 

■ DE L ERU 
E cSlo| REI " LE ° C C0RDC i UNE T QRI C S U ^^ CCMELLE 

SOUELETTE 



UNE POTION HRGIQUE 

une PORMui.e 11 

UNE PORTE 
'" "TSSRQL ._. 

RAPPE EN PIERRE 



Olivier DENIS 

Mode d'emploi: 

Vous eles represents par un " a droite de I'ecran, Pour gagner, il 
reus faut irouver la princesse, la tuer et revenir vivant au point de 
depart {conservez au moins un point d 'en durance). 



1000 



Explication des 4 chiffres en haut a droite. 

- Le premier entre 11 et 34 : Points d'endurance. 
• Le deuxieme: nombre de clefs. 

- Le troisieme: Nombre de pieces d'or transporters { 1 
pieces). 

- Le quatrieme: Nombre de residents tues. 

II ne suffit pas de vouioir ouvrir une porte, encore faut-il avoir 
bonne clef. De toule tacon, ne vous elonnez de rien, ta sorcellerie 
mene le jeu. 



8 §M swis-KieiBf-wi 



I LeT C.NOT I 
■ LET 0-iQU I 
! LET E.2 



161 PRINT TAB J; ' 

165 LET N>li 

Hi l t 0*13 

17B L T P. 13 

ibb l t ci* 

16B L T R.15 
190 L T 5«16 
LOB L T T-17 
200 L T u-ie 
ass L T U>19 
sie l t uaae 
sis l t x.ai 
aae let v. as 
aas l t i.aa 

33B L T AR.24 
331 L T AB.1270 

335 L T ROC 

ass l t oa=85 

336 L T BC.C 

3*e l t cR-ae 

241 LTCCiC 

24B L T 5fi«87 

346 LET DO. 2 

3*7 LET DC.C 

380 L T ER>26 

351 L T EBpSBSS 

353 L T EC-C 

2BB L T Ffl-39 

ass l t re.isai 

367 l t rc«c " 
aea let gr.sb 

361 L T GB.16S0 
363 L T 8C.C 

365 L T HR.31 

356 L T nauseas 

267 L T IB-C 

368 L T J8.C 

269 L T HC.C 

870 L T Kfi.i_*33*ns 

271 L * "■ 

a- n l. 

373 L 

375 L T lrTpeEK 
6397 + 

376 L T LB>C 

t77 L T HB-C 
76 L T NB»C 
279 L T OB-C 

aee l t rr.c 

391 L T PR. KB 

aea l t or.c 

8? 

set _ . 

366 L T | . 

307 L T SB-C 
SBB L T TBaC 



900 PRINT RT L,T, ■'/■' 
910 PRINT AT K,U, 'V" 
920 PRINT AT M,T; '■ 
930 GOTO 7*0 

1310 LET PIF.D) -P<F,D> *D 

1311 G05UB HB 

Bgtq ic 
1220 let pie, 01 »p[e,d1 »d 

■JiuB MB 
BQTO IC 
1230 IF JR THEN RETURN 
1331 POKE LA+Pfl-O.* 

.TO 1259 
1250 IF UA THEN RETURN 
laSB POKE LA+Pfi-D.O 

1359 LET BflD.R TO 51IS-BE COMBB 
T 5"- ENGAGE." 

1360 LET TfiaINT iRND tH) *0-INT (P 

1261 GOSUB £B 

1B62 QOSUB ZR 

1263 LET P(G,D> -PIG,D) +D 

1366 LET SR.D 

1257 GOTO AB+O 

1370 LET TA.D 

1371 LET PID.D) ' 
1250 IF P(D,6) I- 
13B1 IF SR THEt 

1383 LET SR.C 

1384 GOTO IC 

1205 CLS 

1206 PRINT RT L.C'B'^BT M,F;"fJ| 

OUS CT£S MORT" 



1934 PRINT RT fl,D; " " 

1835 NEXT R 

1836 PRINT RT L,D,'V,flT L.DJ" " 
1037 GOTO FOtE 

1060 PRINT RT L,Ffi; " 

1S61 GOSUB EB 

1862 GOTO AB 

1070 GOSUB GB 

1671 PRINT AT R.O, •'—>(—" 

Et BIID.R T6 67>."fcS MURS 
UgUS ONT ECRASSE." 
1674 PRINT RT R,0;" 

. ro fb*d 
is a for e.D TO H 

10 1 NEXT B 
16 2 RETURN 

I "TO Ufi 
19 PRINT RT 0,T, "MM" 
19 1 GOTO AB 

"jTO UA 

rg 1900 
Bio UA 
no 2100 

19 GOTO UA 

19 5 G05U0 2975 

19 6 GOTO EB 

19 GOTO UR 

19 5 LET B«iD,R TO 96>>"BR TRRPP 

E ""EST BLOOUEE COfine PfiR MfliJIE 

-ICT OR EST EN50RCELLE. . . " 

1596 --' 



1S87 PRINT 



D>«PIS.D),RT g,L, SCORE- 



1388 5TCR 
1290 PRINT 
RT C,G;"'~ 



enferme ici. 



8 tiOSUB ZR 

9 GOTO 1285 
5 RETURN 

_. GOTO UR 

20 GOTO 1900 

8075 IF dfl THEN GOTO : 



■ "■OUS PERRI 



TO < 



) FOR B.D TO LEN BJID1-0 

. PRINT AT C,U;B»lO,D+B TO P 

t IF B>S AND PEEK tLR+UJ »C R 
:EK (LA*UJ=C THEN GOTO 1304 



KB-C 

IC.1290 



T JC«C 



-305 RETURN 

..' "A«D 
476 RETURN 

48B IF LB THEN GOTO 3600 
486 GOTO UA 
490 IF JR THEN RETURN 

" etlD.R TO S5) *"1NE PIER 
1ST OETRCHEE OES RCMPRRT5 

. 

493 GOTO 1030 

"TO Xfl 
SSS RETURN 

530 IF JA THEN RETURN 
S3! GOTO FB-D 

Jfl THEN RETURN 
536 LET PR>439 

SUB RB 
S36 GOTO 3196 



393 L T HC=C 
29S LET UA-32BS 
29B L T UB.C 

300 L T XR.133S 

301 L T XB>C 

305 L T YR.liSa 

306 L T YB-C 

310 L T ZR.1300 

311 L T Z8-C 
330 D M PdJ.bl 
325 M DiiD,99> 

330 LET PTD,6i>InT iRND.HR], 

410 CLS 

420 PRINT ■ 

430 PRINT 

440 PRINT ' 

450 PRINT ' 

460 PRINT ' 



2076 G05UB EB 
S077 LET B|10,t 

2073 GOTO 1209 
2060 UOTO UA 
2085 LET Pfl«PR*33 
2090 RETURN 

2100 PRINT RT P,RA,'" ,AT N.Zi" 

i tKiPa* l:t?i "■ u .' ■" , " 

2101 GOTO HO 

210S IF NOT LB THEN GOTO UR 
3106 PRINT AT 0,Ch; " ( '■ 
2110 RETURN 

2115 IF NOT NB THEN GOTO UR 
■" PRINTAT O.^Ri' 1 ";RT P,6A 

IB'THEN PRINT AT P,C 



561 LET D8=151 

552 IF N8 THEN RETURN 

553 POKE LRt311,160 

554 RETURN 

555 IF NB THEN GOTO 1550 

556 LET NBbD 

557 LET OR. 151 
556 GOSUB 2B37 
559 GOTO PC 
B6E GOTO 1SS0 

.570 IF Ifl THEN RETURN 

■■ 
S75 IF JR THEN RETURN 



2116 PR I 
,"t ",fl- 

2117 IF I 
A,"C- 
2130 RETURN 

•-■ 

:T0 UR 

2150 RETURN 

•GTO UA 
3185 RETURN 
2190 GOTO FB-0 

2195 PRINT RT R,P, '. '■ 

2196 GOTO 254S 
2205 RETURN 
2346 GOTO UR 

3390 IF JR THEN RETURN 
2351 LET B(ID,R TO 59)i 
MES SONT GLI55RNTE5. . . . 

t3E2 LET PR-514 
353 G05UB 3670 



2354 C 



: FB + C 



3355 LET PR.PR-33 

3356 RETURN 
3260 GOTO UA 

E365 PRINT AT 9, OR, ■ 
* "1 AT 5,Yi"J '■,-fll 
3266 IF NOT OB THEN 

3367 GOSUB 8100 

336 LET OR.r 
226 RETURN 
228 GOTO UA 
228 GOTO UR 




1578 GOSUB EB 

1579 GOTO ZA 
1600 IF IR THEK . 
1591 LET PR=415 
1583 GOTO 2075 
1585 RETURN 
1590 GOTO YR 
1595 RETURN 
1605 IF JR THEN RETURN 

■" LET BliO.R TO 68)«'HE TRONC 

E9 . GLIS5RNT. 

1607 LET PR.PR+99 

1608 GOSUB 3100 

1609 GOTO FBtE 
1615 RETURN 
1630 GOTO Yfl 
1630 RETURN 

1636 PRINT RT L,FR;"jm" 
1637 t LET BiiO.R TO S«T."»4 EBOUL 

iSUB ZA 
1860 
1640 IF NOT HC THEN RETURN 
1541 CLS 

1642 PRINT AT K.E.'JE UOUS FELIC 
ITE ,HT F,G."OE UOTRE REU55ITE C 
SR HEME", AT F,I:"MOI,JE N'^'Y SUI 
S PRS ENtORe'.AT F,K, 'PRRUENU.. . 

1643 STOP 
ISUfl ZR 

TO UR 

1665 LET PR>630 

1666 GOTO FB 
1570 LET PA. 664 

STO FB 

167S LET PH=S6S 

IQTO FB 
1680 LET PR. 633 

rro fb 

16S5 LET PR. 601 
STQ FB 

1690 LET PA*603 

1691 LET BB10.R TO 49i ."BUELLE C 



339 G TO PB 

231 G TO UR 

231 R TURN 

232 G TO UA 



836 <3 TO UR 
" G TO UR 
RETURN 
G TO Ufi 
S TO Ufi 
GOSUB UA 
GOTO 3570 
RETURN 
GOTO UA 
GOTO UA 
RETURN 
" S T0 UR 

8456^1^ UB^fHCN 

■" PRINT AT U, 



I QTO UA 
351 RETURN 
™ GOTO 2360 
__ GOTO UR 
54 GOTO UR 

54 PRINT RT R,P; ". " ; R- 
'" " 0,0; "■ 1" 
- GOTO 3571 
5 GOTO YA 
5 IF JB THEN RETURN 



!' 



640 G05UB IC 

660 LET IAbINT (RNOfE) 

6B5 POKE Lfl*KR,Z 

600 IF KRt.316 AND KRi: 

LET IB"0 

700 IF NOT Ifl THEN GOTO 900 

718 PRINT RT L,T, " " 

720 PRINT RT K.U," - 

730 PRINT AT H,T,"""» 

740 LET JA.INT (RNDtEl 

741 POKE LAtKA.DB 

742 LET OB =Z 
745 LET SRkC 
760 LET HA.C 
76B LET Nfl.C 
770 LET OA.PA 

010 LET PR.Kflt iINKEY««"8") - 
EYj.-S") *HNKEY|«"6") *33-(INt 
.'■?"1 * 33 

520 IF Pfl.OA THEN GOTO 810 

660 POKE LA+KA.OA 

670 G0SU6 PAiHtRR 

880 IF NOT MR THEN LET KA-Pf 

.882 IF NOT NA THEN LET Ofl.PE 

JBOffllfl 0B 



1702 GOSUB RB 
314 THEN 1703 GOTO 3195 



1745 IF Ifl THEN SOTO 17*0 

1746 LET Pfl.PH+66 
17*7 RETURN 

1740 GOSUB UA 

17*9 RETURN 

1760 GOTO UP 

1770 IF JR 1 

1771 LET Bf 

s ont glissl. . 

■:.sub ua 

QTO 16B7 
1805 GOTO UA 
1815 GOTO 3600 
163B LET Pfl.363 
1621 GOSUB EB 
1833 GOTO 1615 
1883 GOTO UA 
1830 FOR A*G TO r 
1031 PRINT AT R,[ 

1832 C05UB OB 



GO UB GB 



6 GOTO 1070 

6 RETURN 
" GO US 8100 

PR NT AT R . I 

7 GOTO EB 

7 GOTO UA 

8 GOTO UA 

9 GOTO UR 
9 RETURN 

3 GOTO UR 

8 1 GOTO Ufi 

" RETURN 
GOTO UA 

* RETURN 



37* GOTO UR 

875 PRINT AT S.Xi"" ";fi1 

8*761 PRINT AT Vflfii ".";( 

■ ";RT S.Y; "I ■';RT T,l 

2762 RETURN 

2756 PRINT RT 5,Y; *|» 

3766 RETURN 

2760 IF 06 THEN RETURN 

3781 LET OBaD 

27S3 GOTO YfltD 

2765 RETURN 

2790 GOTO UR 

8785 RETURN 

3605 GOTO UR 

8810 RETURN 

8016 GOTO UR 

aaaa let nh.p 



-^•4^ 



2831 LET OR. PEEK 

1T0 MBtE 
3625 LET Nfl.O 

836 LET 8A-C 

827 POKE Lfi+Pfi.: 

835 RETURN 

840 GOTO UR 

8*5 RETURN 

650 GOTO UA 

635 RETURN 

90S SOTO UA 

905 SOSUB UR 
;T0 3070 
2910 PRINT RT S : - 
3911 RETURN 

"SUB Ufi 

org 58SB 

92S GOTO UA 

930 PRINT AT U,l 

031 RETURN 
i 9*0 GOTO UR 
! 0*5 GOSUB Ufi 
; 9*6 GOTO 3110 

960 RETURN 
ffltfi Ufi 

970 GOTO UA 

975 PRINT AT N,i 

":AT T.O;". 

■ ftBT 0,6, "i 

8976 RETURN 
2986 GOTO Ufl 
3095 RETURN 
3000 GOTO UA 
3005 RETURN 
3010 GOTO Ufi 
3015 RETURN 
3BB0 GOTO Ufl 
3025 GOTO Ufl 
3035 GOTO Ufl 
3060 RETURN 
3065 PRINT RT 5 

laee return 

3070 PRINT I 




3070 PRINT AT u,0;" -- 

2S2s BffflWC 



3B8S RETURN 

-;T0 Ufi 
3110 IF JB THEN RETURN 

:■'■■ JB=D 



312B GOTO Ufi 



i IF IB THEN GOTO ; 



31*6 PRINT AT U,C,"I l"iA1 

1*6 RETURN 
.50 PRINT AT U,B; " I" 
-51 RETURN 
160 GOTO UA 
.65 RETURN 
.70 GOTO UA 
75 RETURN 

00 IF KA=669 THEN GOTO i. 
61 GOTO Ufl 
90 GOTO Ufl 
.95 GOSUB UA 
.196 GOTO 3360 
3300 RETURN 

: TO UA 

3 10 GOTO UA 

" 20 GOSUB AS 

31 GOTO UR 

55 GOTO UA 

. 61 LET Br' - 

I LON MAGIC- . 

SOB ZA 

3363 IF NOT LB THEN I 
fi,"C" 

3364 GOTO RB 

. : . . 
:SuB UA 
"■•> GOTO 31B0 



3330 RETURN 
• QTO YA 
..QTO UA 
3335 GOTO UA 
33*0 SOTO 3360 
33*5 RETURN 



3350 IF MB THEN RETURN 
ET MB-D 
■ ;SjB PB 
3353 LET Ofl.136 

?355 G0SU6 3070 
3EB PRINT AT U.K''|M|' 
3361 IF MB THEN GOTO SB 
3363 PRINT RT U.M; "C ,r 

Bfitg AB 
3365 GOTO Ufl 



3*25 LET LB.O 
3*80 GOTO PB 
3690 GOTO Ufi 
3600 CL5 



3605 PRINT 




ii-ac LET RA.3495 
3621 LET PA-PA+FA 

- ilB.740 
3023 S05UB HB 



4018 LET UB=UO-; 



AT P,6;-'.'';AT 6,6; 



lOIRE EST MORTE. 



4B24- GOSUB ZR 
4025 GOTO IC 
4055 RETURN 



4061 GOTO 5705 

4070 RETURN 

4075 IF SB THEN GOTO 407B 



' JC THEN GOTO 4116 



4081 LET PID.D) nPlC-,0) ■ 
4002 LET 50.6 
4083 GOSUB HB 
4004 GOTO IC 
4085 GOTO UA 

4115 RETURN 

4116 LET JC»D 
*117 GOTO V" ' 



4130 RETURN 
4155 GOTO L" 



4240 RETURN 
4245 GOTO UA 
4800 RETURN 
4205 GOTO UA 
4390 RETURN 

:T0 Ufl 
4390 RETURN 
4395 GOTO 4238 



■ 455 RETURN 



449S GOSUO EB 
4497 LET TB=D 

. CO 4015 
4 508 RETURN 

■ ..■■■ 

4560 RETURN 
4565 GOTO Ufl 
4570 PRINT AT I,Ui ' 



4503 PRINT I 

4504 GOTO XA 
4585 RETURN 

4590 IF UB THEN RETURN 

4591 GOTO Ufl 
4600 RETURN 

4605 IF Jfl THEN RETURN 

4606 LET PA. 321 

*60? LETBKO.R TO 47) ■"■□US 

4688 'GOTO FB*D 

*610 RETURN 

*615 IF NOT KC THEN GOTO UA 

*616 PRINT AT M.DBi". '■ ; AT H 



617 IF 



■ G.DR; ' 
not y- 



THEN PRINT ( 



I RETUfiN 



4620 RETURN 

4625 IF XB THcr 

4626 LET XB.D 
4537 GOTO HB 
4655 GOTO Ufl 

4660 IF NOT GC THEN GOTO Ufi 

4661 PRINT AT l,D;'- ";RT H, 

",BT g,e; '■■■■ 

4668 IF NOT TB THEN PRINT RT 

4663 RETURN 
471S GOTO Ufl 

SUB 3055 

4.721 GOTO 5705 

4725 RETURN 

4730 IF NOT YB THEN GOTO XR 



4736 RETURN 



4S25 RETURN 
4695 GOTO Ufi 
498B RETURN 
4960 GOTO UA 



498o'if n6t'hc THEN PRINT AT L,G 



5002 LET PID.DI . 

igTg ab 

■QTO UA 

5020 RETURN 

WTO Yfl 

5030 PRINT AT L 



5034 RETURN 

5045 LET Pfi.P( 

5046 GOTO FB 



5051 GOSUB FB 



_.B3 SOTO 5705 
505S IF NOT ZB THEN GOTO Ufi 
5066 IF NOT XB THEN RETURN 
5B57 PRINT RT L,R.' , i",AT L,R; 

5058 LET PA.PA-H 

5059 GOTO 8033 



Vf V^atV't"* 



5072 LET PR-Pflt99 

5073 QOSUB 5S80 



^BILLARD 

Des trous partout et des numeros sur les boules: Test 
americain le billard comme I' Atari. 

Christophe MENEGALLI 

Mode d'emploi: „ 

Lorsque la queue tourne autour de la boule. le joueur peut I arreter 
en appuyant sur Return et changer le sens de la rotation en ap- 
puyant sur la barre d'espace. Une fois la direction delermmee, on 
appuie- sur Start pour lancer la boule, la force du coup est propor- 
tionnelle a la duree de 'appui sur la touche. Le joueur 1 joue avec 
les trous du haul et le joueur 2 avec celui du bas. 




; REH ************************** 

2 REM * * 

3 RET1 * 8ILLAR0 * 

5 REM * CHRISTOPHE [1ENEGALLI * 

B RET1 * * 

g rem ************************** 

IB TRAP 80:QEP=0:OI" KRC 15) ,YRC 15] ,N1»C 1 

5),N2*ClS),SCC2),COC2]:L=l:SCtl)=0:SCt2] 

^0:crjr.n=e:cor.2)=a:GOTO 4000 

14 REfl DESSIN COHPLET DE LA BALLE 

15 PLOT X-2.Y-1 :DRAWTO X-2,v.2;PLOT K-l, 
v- 2 :DRAUTO X-1,Y+3:PL0T X, Y-2:DRAUT0 X,Y 
*3:PL0T X+l,Y-2:ORAUT0 X+1,Y*3 

20 PLOT X-r2,Y-2:DRAUT0 X+2, Y.-3 :PLOT X+3, 
v-l:D«flUTO Xf3,Y*2:RETURN 

21 REH DEPLACEPIENTS BORIZONTAUX 

22 COLOR IsPLOT X+3, Y-l :DRAUTO X+3,Y*2:P 
LOT X+2,Y-2:"LOT X*2,Y*3 

23 COLOR 3-PLOT X-3, Y- 1 :DRAWTO X- 
LOT X-2,Y-2:PL0T X-2, Y+3 :RETURN 
25 COLOR li"LOT X-2, V-l :DRAUTO X- 



f»2:P 



LOT i 



'-2:"L0T 



r*3 



COLOR 3:PL0T X+3, Y-2:OHAUT0 X*3,Y»3:P 
LOT X*4,Y-l:ORAUT0 X+4, Y-*2:RETURN 

29 REM ANALYSE APRES TROU 

30 FOR E=2S5 TO STEP -!0:SOUND 0,£, 10i 
1B:R)R TI=1 TO 28:NEXT TUMEXT £:SOUND 
,255, 10,15 

31 FOR TI=1 TO 25:N£XT TI:50UND 0,0,0,9 

33 REB=REBH :XRCREB)=X:YR(REB)=Y 

34 IF CCL=1 AND Y<38) OR IL=2 AND Y>38)1 
AND REB>RE8rtTN THEN POKE 656. B^ "C'EST 
BON ":SCt.L)=SCCL)*] :TR=! :GOSUB 3B:60T 



36 POKE 6S6,L':P0KE 657,22:'' SCCL):POKE 6 
56,0:IF L=l AND NJ=2 AND TR=B THEN GOSUB 

60iL=2:TIG=l 

37 FOR TI=1 TO 109'NEXT TI:PDKE 656, B:^ 
"UOULEB UOUS UOIR UOTRE PARCOURS CO'N)": 
POKE 764,255 

38 IF L=2 AND TR=0 AND TIGOl THEN GOSUB 
60:L=1 

33 TIG=B:IF PEEKC764)=35 THEN POKE 656,0 
:■? "AU JOUEUR "JL1" 
' ; : RETURN 

49 IF PEEKC764)08 THEN 39 

43 COLOR 3:PL0T XRC0), YRC0] :FOR 1=1 TO R 

EB^ORAWTO XR[I),Yfi(I):NEXT I 

*5 POKE 656,0:" ■ APPUYE? SUR S 

TART 

46 IF PEEKt53279)<>6 THEN 48 

50 COLOR 1 = p L0T XR{0), YRC8) :FOR 1=1 TO R 
EB:ORAUT0 XRCI1 , YRCI) :NEXT I:IF F=8 THEN 

COLOR 3:G0SUB 15 
56 POKE BSe.O:" "AU JOUEUR "JL|" 
" i ^RETURN 

59 REn CHANGEMENT DU SCHEHA 

60 IF L=2 THEN COLOR 2:PL0T 158, 77 :OHAUIT 
60,77:COLOR 0:PLOT 18,3:DRAMTO 109, 3:R 
ETURN 

65 COLOR 2:»LQT 18,3:0RAUT0 199,3:C0L0R 
B:PL0T 150,77:DRAUTO 60,77'RETURN 

79 REH ERREURS 

80 TRAP 90:TF PEEKC195)=8 AND PEEKC1B6J+ 
255*PEEKC187J=5000 THEN POKE 84,6:" ""•■" 
OKE 84,6:P0R J=l TO 20:NEXT J : GOTO 5000 
80 IF PEEKC1951=8 AND PEEKl 196)«256*PEEK 
f 1971=5109 THEN 5100 

95 IF PEEK[195)=8 AND PEEKC 186)*256*P£EK 
ri87]=5150 THEN 5158 



259 SOUND 0,0,B,0:RETURN 

300 DATA 108,108,64,72,64,64,63,63,84,72 

. 81) 81, 72, 64„ 63, Bl, 91 i 96, 1 08, 96, 91 , SI , Bl 

.72,72,64,64,53,53 

305 DATA 53,63,53,17,53,83,64,64,72,81,9 

1,96 

319 DATA 108,138,96,63,54,72,81 

98B REM DESSIN DE LA TI6E (1998-1317) 

1000 A=1B:8=12:SI=1 :P=1 :TE=I :A8=0 

1005 IF A*SI>=144 THEN 1109 

1097 IF ft+SI<=10 THEN SI=f-SI :GOTO 1300 

1008 A=A+SI:COLOR 2:"LOT A,8:DRAUT0 X,Y: 

TOLOR 3=G0SUB 15 : T E=TE*1 :IF TEW 2 AND A 

BSCSI)=1 THEN SI=SI*4 

1011 IF PEEKC53279J06 THEN 1039 

1012 IF PEEKC53278)=6 THEN F=F + 1 'GOTO 10 
12 

1025 SOUND 0,255,0, 15:C0L0R 1 :«LQT A.B'O 
RAUITO X,Y;COLOR 3:&0SUB 15:SOUND 9,9,9,0 

1927 IF F>1588 THEN A=INTC r_RNOf.9)*124 JH 
8):B=INTCCRN0C9!»54) + I3) :P0KE 656,9=7 "F 
AUSSE QUEUE " : c =28 

1928 RETURN 

1030 IF PEEKC764)=33 THEN SI=-SI :PQKE 76 



"SCORE :B 



1,255 



1935 IF PEEKC764) 


12 THEN TE 


OTO 1011 




1036 IF ABO0 AND 


ABStSI)>1 


=SI'4 




1049 COLOR 1 :PLOT 


A,B:DRAUTO 


1069 GOTO 1995 





:AB=A9-1 :& 
1 THEN AB=0:SI 



1108 IF B+SI<=11 THEN GOTO 1865 

UB7 IF B-SI>=69 THEN SI--SIiGOTO 1299 

1109 B=BtSI:COLOR 2:f>LOT A,B:DRAUTO X,1 
COLOR 3:&OSU? 15:T E =TE« 1 =IF TE>=12 AND 
BSCSI) = 1 THEN SI-SIM 

1111 IF PEEKC53278)<>6 THEN 1130 

1112 IF PEEKC532?9)=6 THEN F=F + 1 :GOTO ! 



) RUN 



=1 TO 48 
220 READ A 
230 SOUND 0.A.10, 10 
235 FOR J=l TO 45:NEXT . 
240 NEXT I 



1125 SOUND 9,255,9,15:COLOR 1 :°LOT A,B:0 
RAwTO X.YiCXOR 3:GOSUB 15:S0UND 9,9,0,0 

1127 IF F>1590 THEN A=INTCCRMDC0)*124)*1 
8):B=INTtCRND(0)*54)*13) :OOKE 656,9:? "F 
AUSSE QUEUE " :F-28 

1128 RETURN 

1139 IF P£EK(764)-33 THEN SI— SI: POKE 78 
4,255 

1135 IF PEEKC764)=12 THEN TE-1 iOB=AB+l =G 
OTO 1111 

1136 IF AB<>9 «ND ABSCSI)>1 THEN AB=0:SI 
=SI'4 

1159 COLOR I :PLOT A,B:DRAUTO X>Y 

1179 GOTO 1109 

1200 IF A«SI> = )44 THEN SI—SI iGOTO 1189 

1297 IF rt+SK-18 THEN 1399 

1299 A-fHSI:COLOR 2 :PLOT A,8:0RAUT0 X,Y: 

COLOR 3:GOSUB 15 :TE=TE*1 :IF TE> = 12 ANO A 

8SCSI)=1 THEN SI=SIM 

1211 IF PEEK[53279)06 THEN 1239 

1212 IF PEEKC 53279 1=6 THEN F=F*1 :BOT0 12 
12 

1225 SOUND 8,255,0, 15:COLOR 1 : p LOT A,B:D 
RAWTO X,Y:COLOR 3iGOSUB 15:S0UND 0,0.0,8 

1227 IF FMS00 THEN A-INTC(RND(0)*124)»1 
8):B=INTCtRNDt0)*54)*13):POKE 656,0:'' "F 
AUSSE QUEUE ":F=20 

1228 RETURN 

1238 IF PEEKC784).33 THEN SI=-SI:POKE ?B 
4,255 

1235 IF PEEKC764)=12 THEN TE-1 :AB=ABf| :G 
OTO 1211 

1236 IF ABOB AND ABSCSIDl THEN AB=B:SI 
-SI'4 

125B COLOR 1 :PLOT A,B:ORAWT0 X,Y 

1270 GOTO 1200 

1380 IF 8+SK-11 THEN 5I=-SI:GOTO 1885 

1307 IF B*SI>=89 THEN 1200 

1309 B=B>SI:COLOR 2:PLOT A,8:DRAUT0 X.Y: 

COLOR 3:GOSUB 15:TE=TE*1 :IF TE> = 12 AND A 

BSCSI)=1 THEN SI=SI»4 



yN^,^^^ 



ZX81 + 

a«7» goto re*o 

5BOB GOTO XA 

5BBS PRINT AT L.R; "I 



Suit* de la page 5 



12 

1325 SOUND 8,255,9, 15:C0L0R 1 :f>LOT A,B:D 
RAUTO X,Y:COLOR 3:&0SUB 15:S0UND 9,9,0,9 

1327 IF F>1599 THEN A=INTCCRNDC9)*!24)+1 
B):B=INTtCRNDt9)*543H3):POKE 656, B: -1 "F 
AUSSE QUEUE " : C =2B 

1328 RETURN 

1338 IF PEEKt?64)=33 THEN SI=-Sl:"OKE 76 
4,255 

1335 IF PEEKC764) = 12 THEN TE=1 :HB=AB'l ^G 
OTO 1311 

1336 IF A8O0 AND ABS[SI)>] THEN AB=0:5I 
»SI'4 

1350 COLOR 1 sPLOT A,B:DRAUTO X.Y 

1370 GOTO 1380 

3939 REM PRESENTATION 

4098 GRAPHICS 0:OL=PEEKt5B0)*256*PEEKC56 

l)*4:POKE DL*2,7:P0KE DLO,7:COR 1=4 TO 

9:P0K£ DL*I,6:NEXT l:«»OXE 752.1 

4050 POKE 788,14B:POKE 709.20: p OKE 719,2 

BIPOKE 711, 19B:°0KE 712,26 

4 10B ? "":? ■ billard " i :REn 

EN niNUSCULE ET U. I. 

4|50 ? '■":? "CHOISISSE2 LE MENU 

AUEC ";:?" LES QUESTIONS " :? " 

4290 GOSUB 299 

5999 ? "NOrlBRE DE JOUEURS" i :INPUT NJ 

5929 ? " -NOM OU JOUEUR 1" i :INPUT Nl* 

5849 IF NJOl THEN ? " -NON DU JOUEUR 2 

" jUNPUT N2« 

5968 LN1=LENCN1«) :LN2=LENCN2») 

5100 POKE 84,19:'' ■ NOMBRE DE BANOES MINI 

nun "PINPUT RE9MIN 

5150 POKE 84,12:'' "TAILLE OES TROUS C1=G 

R. 2=PE.l ";:INPUT TAIL 

5299 IF TAIL = 1 THEN niLHIN=74 :nlLHAX=B4 : 

C0XMIN=23 iCOX«AX=l 36 :C0YMIN=18 :COYnAX=80 

5250 niLniN=76:MILnAX=82:C0XniN=21 :COXt1A 

X= 138 :COYniN= 1 6 :COYnAX=62 

9999 REfl DESSIN TABLEC 10800-- 191 23) 

10980 GRAPHICS 7:fOKE 7]2,26:"0KE 719,26 

:POKE 708,26:POKE 709,2B:COLOR 2:°L0T 18 

,5:DRAUTO 159,5:QRAUT0 150.75 

19819 ORAWTO 1B.75:P0KE 765,l: p OKE 85,10 

:POKE B4,5:XI0 18, »8, 0,8. ' S : ' :POKE 752,1 

10040 RESTORE 10951 

10959 COLOR 2:PL0T 12,7;PL0T 12,73:PL0T 

!48,73.'PL0T 148,7:F0R 1=1 TO 42 :READ M.N 

,P,Q:PLOT M,N:DRAUTO P,Q:NEXT I 

10951 POKE 719,14:°0KE 708, 19B:PQKE 799, 



2-LN2:" N2«i'P0KE 657.1 
COUPS i " 
10999 REM INITIALISATION BALLE 
11009 IF OEP=0 THEN COLOR 0IPLOT 10,3:OR 
AUTO 100,3:°OKE 656,0:°OKE 657,2:'' 
OUEUR 1 ":DEP=1 
11188 X=INT([RNDC0)*121)*13):Y=INTCtRNDC 
9)*52)*14! :COLOR 3:GOSUB 15:&0SUB 1989 
11998 REH DEPLACErlENTS BALLE 
12800 XRC0)=X:vRC0]=Y:RE9=0:COCL)=CO(L)» 
1 :POKE 656,l:P0KE 657.35:'' COCL 
12810 IF XOfi THEN 12050 
12845 IF B<30 THEN U=I5808:U=- 15880 :GOTO 

12158 
12847 IF 8>38 THEN U=-1509B :U=15008:GOTO 

12150 
12050 U=CY-BVCX-A) :U=B-(A*(Y-B)'C> 
IF A<X THEN SIX=1 :A=0:ENU=25:GOTO I 
12055 rt=0:SIX=-l :ENU=22 
12189 F = F-l:IF F = THEN REB=REB*1 :XRIREB 
1=X:yRCREB)=Y:TR=0:GOSUB 36:G0SUB 1000:G 
OTO 12000 

12181 IF XOA THEN BDSUB ENU:X=XtSIX 
12150 Y1=U*X+U:D£L=Y-Y1 :DEL=INTCDEL) 
122B0 IF DEL<8 THEN 12320 

12201 IF DEL>9 THEN 12220 

12202 IF CX=18 OR X=141 1 AND CV>COYrlAX 
R Y(COYMIN) THEN COLOR 1 :OOSUB !5:G0T0 3 
9 

12204 IF X=141 THEN U=-U -U=2«Y-U :SIX=-1 : 
ENU=22:REB=REa'l :SOUND 8, 255, 0, 15 :FOR S= 
1 TO 9:NEXT S:SOUND 9,0.0,0 

12205 IF X=18 THEN U=-U :U=2*Y-U :SIX=1 :£N 
U=25:REB=REB*1 :SOUND 0. 255, 0, 15 :POR ! 
to 9:NEXT S^SOUNO 9,9,0,0 
12296 IF X=18 OR X=141 THEN XRCRE8)=: 
fREB!=Y 

12209 GOTO 12100 
12212 REM 8ALLE "ONTE 

12220 IF Y-Y1-DEL>0.5 THEN DEL=DEL*1 

12221 FOR I=! TO DEL:COLOR 1 :°LOT X- 
3 = DRAWTO X*2.Y*3:PL0r X-2. Y*2:OLOT _X 



t+3,Y-2: 



,5,11.75 



20 

10100 DATA 10,5, 18,75,1 

10101 OATA 10,6,150,6,10.74,158,74 

18182 DATA 149,7,149,73,12,13,12,57 

18183 DATA 13, 14, 13,66, 14. 15, 14, 65 

18184 DATA 15,18,15,64 

IB185 DATA 18,7,77,7,82,7,142,7 
10196 OATA 19,8,76,8,63.8,141,8 
[0197 DATA 28.9,75, 9, B4, 9, 140,9 
181B8 DATA 21,10.75,19.84,18,139,10 
10110 DATA 18,73,77,73,82,73,142,73 

18111 DATA 19,72,78,72,83,72,141,72 

18112 DATA 28,71,75,71,84,71,148,7] 
10113 DATA 21,78,75,70,84,70,139,70 

18114 DATA 148, 13, 14B.87, 147, 14, 147,66 

18115 DATA 146,15,146,65,145,16,145,64 
1B116 DATA 12,8,13,7,12,72,13,73 
18117 DATA 147.7,148,8,147,73,149.72 
1B119 DATA 8,2.4,2,8,7,4,7 

10128 DATA 2,3,2,6,153,78,154,79 

18121 DATA 159,73,154,73,155,77,155,74 

10122 OATA 157,77,157,74 

18123 DATA 18,3,100,3,150,77,68,77 

13139 REM CADRE TEXTE 

182BB POKE 656,l:P0KE 857, I2-LN1 :•» Nltj 

=OKE 657,15:° "SCORE :8 COUPS:' 

18228 IF NJ=2 THEN POKE 656,2:PQKE 657,1 



*2 

12225 COLOR 3:PL0T X-2,Y-2=PL0T ) 
PLOT X-liY-3:ORAUT0 X+2.Y-3 ' 
12238 T-Y-HIF Y<>13 THEN 12238 

12231 IF X<COXMIN OR X>COXHAX OR tx>niLrt 
IN AND X<MILrWX) THEN COLOR I i GOSUB 15--6 
OTO 38 

12232 U=-Ut26:U=-UiREB=REB*l:S0UHD 0,255 
,8,15:F0R S-l TO 5SNEXT S:SOUND-0,0,8,B 

12233 XRCREB)=X!YRtRE8)-Y:S0T0 121BS 

12238 F=F-1 :IF F=B THEN REB-REB»1 :XRCREB 
1-X;VRCREB)-Y:TR-0:GOSU8 36:&0SUB 1 
OTO 1200B 

12239 NEXT I:IF X=18 OR X=141 THEN 122B2 
12248 GOTO 12108 

12319 REM BALLE DESCEND 

12320 IF Y-Y|-0EL<-8.5 THEN OEL-OEL-1 

12321 FOR 1—1 TO DEL STEP -1 :IF Y<>« 1 
HEN 12326 

12322 U=132-U:U— U:REB=REBH:SOUNO 8,255 
■B.lBiFOR S=l TO 5:NEXT SiSOUNO 0,8,8,6 

12323 XRCRE8)=X:VRCREB)=Y 

12324 IF X<C0XI1IN OR X>COXHAX OR (X>nlLrl 
IN ANO X<niLnAX) THEN COLOR 1 : GOSUB 15:6 
OTO 38 

12325 GOTO 12)88 

12326 COLOR 1 :PLOT X-l , Y-2 lORAUTO X*2,Y- 
2:PL0T X-2,Y-]:PL0T X*3,Y-1 

12327 COLOR 3:PL0T X-2,Y*3iPL0T X+3,Y«3: 
PLOT X-1,Y*4:ORAWTO X*2,Y*4 

12338 Y=Y.1 :F=F-1 :IF F-8 THEN REB=REB*1: 
XR[REB)=X:YR(REB)=Y:TR=e:60SUB 30:G0SUB 
1080:GOTO 12000 

12333 NEXT HIP X=1B OR X=141 THEN 12282 
12340 GOTO 12100 



f^l,.. 



5345 GOTO US 



S1B5 PRINT BT L,CA,"I" 
81B6 RETURN 
BUB IF Jfl THEN RETURN 
~" L.CH; "I" 
,R TO 661 ■ 
E SUR UOUS 



>H 



643B 
S44B 
5456 

'■P. ERSE 9466 



5115 PR It 



... L.CRi" " 
■ ;;TQ CD 
J120 PRINT RT L.Pft; "|";BT M, 

5131 GOTO XA 

31SB IF NOT L THEN GOTO UA 

0136 PRINT OT L.OAi" "iflT t 

B1H7 RETURN 

513B GOTO 6788 

5146 GOTO UA 

"".SB RETURN 

_.53 GOSUB ED 

5165 GOTO UR 

51GB PRINT RT N.I;" "JflT 



RT 6 
6457 
545S 
546B 
6451 



RETURN 
GOTO UR 
GOTO UR 
RETURN 
PRINT AT 0,1 
PfjINT AT HI 

PRINT KT'u,^t^, 

"* "..Gfi, "■■■, PT P 

RT p.gr; "*"i 



y-8*i_< 



IU/m 



5 EPUISEI. ..." 
SB7S IF NOT LC 

5573 GOTO FD+D 

5574 GOTO B567 
5590 PRINT RT M 



51GB 
fffei" 



.'■iflT 6,GRi", 
GBi "■" 
RETURN 
GOTO EB 
LET PA-PRrG 
LET KA-PB 
LET RB«C 
LET Gfl-C 
GOTO 410 
GOTO UA 
RETURN 



» PRINT RT O.Ej " 



IF ZO THEN RETURN 

GOTO UR 

LET LCD 

GOTO PB 

RETURN 

GOTO UA 

GOTO UR 

RETURN 



j RETURN 



56BB 
5&2B 
5625 ._ 
56*0 GOTO UB 

SS4S 

58SS 
5690 
5695 

57ae 



NOT OC THEN PRINT RT G.L 



, RETURN 
! RETURN 



E«K SL-Z'&SH 



52S0 GOTO UR 
5SS5 GOSUD S126 
SSB6 GOTO 54B5 
5310 GOTO UR 
631B RETURN 
5340 GOTO UR 



55BB 
5S1B 
SB 15 



GOTO EB 
RETURN 
GOTO Yfl 
GOTO UA 
LET°B« f (D,R TO 5*1="10U5 UOU 57B5 GOfO'ufl 



KH 1" i w " r , w , __* _ 

IF EC THEN RETURN 

LET EC«0 

GOTO YA+D 

PRINT BT P.R; ' -",R1 

!,R;"""ifiT R.SJ "I' 

RETURN 



D01B PRINT RT 0,E;" I" 

§§i5 ?F T NOT NB THEN_GOTO UH 

5816 PRINT BT ^.H;-" 1 ;RT O.F; 

";AT R.Fi"fc I" 
5SSB RETURN 

seas goto ur 

56*5 GOTO UR 

5850 IF OC THEN RETURN 

5851 LET 0C«0 

5852 GOTO R6 
5055 RETURN 
506B GOTO UR 
5875 GOTO UA 
SBS0 RETURN 
BG5B GOTO UR 
5955 RETURN 
597B GOTO UR 
6B75 RETURN 

saee goto ur 

59 6 B SOTO UR 

SIS? 5TSS? «C ,« PRINT »T 

6B01 RETURN 

60B5 IF BC THEN RETURN 

6006 LET RC-0 

6B07 GOTO PB 

BB4B GOTO UR 

6045 RETURN „ 



6070 
6971 
6B72 
6B73 



. IF NOT UB THEN PRINT Rl 

1 5P!8 N ™ «tr U m 

LET UB-0 

GOSUD HD 
IF^NOTJJD^THEN GOTO UR 



506B 
6BB5 

SB85 

Ibsb 



INT RT f 

IF NOT KC 1 

RETURN 

IF KC THEN RETURN 

LET KC-D 

IF XD THEN RETURN 

LET PA-321 

PRINT RT R,RR; "■ ;i 



RT O.Y 
PRINT RT R,Z 



6093 GOTO EB 



6B96 
S1BS 



IF U2 THEN RETURN 
GOTO 505 1 

a QTo ub 

RETURN 



-CHASSE 

AU TRESOR 

Ah ! la COUPE... le rgve impossible, le but de votre 
existence. Une chose est certaine, dans cette aven- 
ture, rien ne vous sera 6pargne ! .._,..«- 



THOMSON TO7,TO770,MO 5. 



{ 



18 CLS:LOCATE8,0,0:SCREEN 2,8,8 

26 GOTO 1B0BB 

198 HEM HISE EM PLACE TABLEAU 

118 CLS:A*="81234567B9":PRINT ■ H!3 
4 5 6 7 8 9" 

126 IF ftCl, 1X>1 THEN N=l : A=A< 1, 1 >■■ A( 1, 1 

)=I:G0SUB 2680e:GOTO 128 

136 IF A(1,2K>1 THEN N=l : Pl=A(l, 2>: At 1,2 

>=1:G0SUB 26866:G0T0 120 

146 IF A(2,1)<>1 THEN N=l : A=A(2, 1 >: A<2, 1 

>=liGOSUB 280ee:GOTO 126 

156 FOR J=l TO ie:LOCATE 8,2*J:PRINT MID 

*(AS,J, 1):NEXT:L0CATE2,2:PRINTGR*(6) 

166 FOR 1=1 TO ll:LINE (12, 16*I-4>-< 172, 

16*1-4), l:NEXT 

178 FOR 1=1 TO ll:LINE<16«I-4,12)-<16«I- 

4,172J,l:NEXT:X=l:Y=l 

286 REN AFF. OBJETS 

216 LOCATE 8,22,8:PRINT "Wous avez : Vo 

us uosez:":LOCATE 0,24,6: ATTRB1, 1: PRINT 

CPti?)i :ATTRE8.S 

226 N0=l:0(4)=l:0(l>=e:a(2>=B:0(3>=8 

386 REM DESS1N 

318 FOR 1=8 TO I 

320 LINE(I76,8+72»IJ-(319, 8+72»I),4 

338 LINE(176-H43*I, 8 >-( 176+143*1,88), 4 

348 LINE (288, 18*42*1 >-(288, 18+42*1 ), 

358 LINE(288+86*I,18>-(288*-88*I,6e>, 

368 LINE (238, 28+24*1) -(258, 28+24*1), 

378 LINE (238*28*1, 28) -(238+26*1, 52), 

386 NEXT 

396 LINE(176,8)-(288,1B>,4 

488 LINE(319,8)-(288,18>,4 

416 LINE<319,80>-(28B,6B),4 

420 LINE(176,8B)-(2BB,6B),4 

436 LINE<296,28>-(296,56>,4 

440 l_INE-(311,64>,4 

458 LINE-(311,24),4 

468 LINE-(296,28),4 

478 P1=8=P2=1!P3=I 

4B8 C0L0R1!L0CATE 38, 18: PRINT'N"; GR*( 16) 

:lOCATE38,11:PRINT ■ ":C0L0R2 

588 REN TEXTES 

518 LOCATE23,U:PRINT"ACTI0NS" 

520 L0CATE23,13:PRINT"l:Prendre objet" 

530 L0CATE23,14:PRINT"2:Laisser objet" 

548 LQCATE23,15:PRINT"3:0tiliser- objef 

556 L0CATE23, 16:PRINT"4:Dessiner" 

568 L0C0TE23,I7:PRINT'N:Nord- 

578 L0CATE23,18:PRlNT-S:Sud- 

588 L0CATE23,19:PRI«T"E!Est" 

598 L0CATE23,£8!PRINT"O:Ouesf 

686 L0CATE27,£3,1!PRINT"C0HKANDE? "; 

888 REM COHHANDE 

885 Z*=INKEY*:IF Z*<>"" THEN 385 

BIB Z*=INKEYCIF Zt=" THEN 818 

815 L0CATE8,e,8 

820 IF 2S--H - THEN I860 

838 IF Z*="S- THEN 1186 

846 IF Z*="E" THEN I2B8 

856 IF Z*='0" THEN 1306 

868 IF Z*=M" THEN I486 

878 IF Z*="2' THEN 1588 

888 IF Z*="3' THEN 1686 

B98 IF 2*="4" THEN 1788 

986 GOTO 688 

1886 REN NORD 

1818 IF A(X,Y-1>=8 THEN GOSUB 5188:G0TO 

1820 IF A(X,Y>=2 THEN 6388 

183B IF A<X,Y)=3 THEN 6488 

1846 Y=Y-l:LOCATE 2*X,2»Y:PRINT GRS(B);: 

L0CATE2*X,2*Y+2:PRINT GR(<1>; 

1656 IF A(X-1,Y)=8 THEN PP1=6 ELSE PP1 = 1 

I860 IF A(X,Y-1)=8 THEN PP2=6 ELSE PP2=1 

1678 IF A(X+1,Y)=8 THEN PP3=8 ELSE PP3=1 

1886 C0L0R1:L0CATE38,I8:PRINT- N":LOCATE 

38,li:PRINT- ";GR*( 13>:C0L0R2 

1696 GOSUB 5800:GOTO 6088 

1186 REN SUD 

1116 IF ft(X,Y+l)=B THEN GOSUB 5188:G0TO 

666 

1128 IF A(X,Y>=2 THEN 6386 

1138 IF A(X,Y-' = 3 THEN 6488 

1146 -Y=Y+l:LOCflTE 2*X,2*Y: PRINT GR*(0>:L 

OCATE 2*X,2*Y-2!PRINT GR*(1) 

1158 IF A(X*1,Y>=6 THEN PP1=8 ELSE PP1=I 

116B IF A<X,Y*1>=6 THEN PP2=8 ELSE PP2=I 

1178 IF A(X-1,Y)=8 THEN PP3=B ELSE PP3=1 

1188 C0L0R1:L0CATE38,1B:PRINT- ";GRS(15> 

:L0C0TE38,1I:PR1NT" N*:C0L0R2 

1190 GOSUB 5088:GOTO 6808 

1286 REM EST 

1216 IF A(X+1,Y>=B THEN GOSUB 5168:G0T0 

688 

1226 IF A(X,¥)=2 THEN 6386 

1236 IF A(X,Y)-3 THEN 6488 

1248 X=X+1:L0CATE 2*X,2*Y:PRINT GR*(8>f: 

L0CATE2*X-2,2*Y!PRINT GR*(1); 

1256 IF A(X,Y-1)=8 THEN PP1=8 ELSE PP1=1 

1266 IF A(X+1,Y)=8 THEN PP2=8 ELSE PP2=1 

1278 IF A(X,Y*1)=8 THEN PP3=8 ELSE PP3=1 

1280 C0L0RI:L0CATE38, 1 8: PRINT'N"; GR*( 16) 

:L0CATE38, ll:PRINT- "=C0L0R2 

1296 GOSUB 5608:GOTO 6800 

1388 REN OUEST 

1318 IF A(X-1,Y)=0 THEN GOSUB 5168:G0TO 

688 

1328 IF A(X,Y)=2 THEN 6308 

1336 IF A(X,Y)=3 THEN 6488 

1346 X=X-l:LOCATE 2*X,2*Y: PRINT GR*(6);: 

L0CATE2*X+2,2*Y: PRINT GR*C1>; 

1358 IF A(X,Y+U'=fl THEN PP1=8 ELSE PP1 = 1 

1368 IF A(X-I,Y>=8 THEN PP2=8 ELSE PP2=1 

1378 IF A(X,Y-1)=0 THEN PP3=6 ELSE PP3=1 




1388 COLORI:LOCATE38,18:PR1NTGR$(14>;"N" 

JLOCATE38, ll:PRINT" ":C0L0R2 

1396 GOSUB 5686: GOTO 6880 

1488 REN PRISE OBJET 

1418 IF A(X,Y)<6 OR A(X,Y>)9 THEN GOSUB 

5iee:G0T06ee 

1428 0<A(X,Y)-5)=1 

1438 ATTRBl,l:L0CATE3*N0, 24: PRIMTGRtl A<X 

,Y));:L0CATE33,9:PRINTGR*ll);:ftTTRB8,8:H 

0=NO+1 

1446 A(X,Y) = l:GOTO 608 

1588 REN LAISSE OBJET 

1518 IF A(X,YX>1 THEN GOSUB 5186:G0T068 

8 ELSE GOSUB20188 

1528 L0CATE23, 13:PRI«T" 1: Clef •:L0CATE23, 

14:PRINT"2:Tali»3n":L0CAT£23,15:PRINT"3: 

Fleche":L0CATE23, 16:PRINT"4:FiDle":L0CAT 

E23,17:PRINT"5:Rien" 

1538 L0CATE27,23:PRINT-C0nMANDE? "; 

1548 ATTRBl,l:Z*=mKEY*:IF ZS=" THEN 15 

46 ELSE Z=VAL<Z$) 

1556 IF Z>5 OR Z=6 THEN GOSUB 5100:GOTO1 

538 

1566 IF Z=5 THEN GOSUB 28188= G0TO586 

1576 IF 0(2>=I THEN O(Z)=8:N0=NO-l :LOCAT 

E33, 9: PRINTGR*(Z+5>: : A<X, Y)=Z+5 

1588 GOSUB 5200:GOSLfB2et86:GOTO580 

1666 REH UTILISE OBJET 

1618 G0SUB26186:L0CATE23, I3:PRINT-0BJET 

UTILISE": :L0CATE23, 15:PRlNT-l:Clef ;:LOC 

ATE23, 16: PRINT'2: Talisman"; 

1620 L0CATE23, 17:PRINT*3: Fleche"; : LOCATE 

23, 18:PRINT'4:Fio]e*:.-L0CBTE23, 19: PRINT" 

5iRien";:L0CATE37,23 

1636 2*=INKEY*!IF ZS=" THEN 1638 

1648 IF A(X,Y)=2 GOTO 6388 

1658 IF R(X,Y>=3 GOTO 6480 

1668 IF A(X,Y)=4 GOTO 6580 

1678 IF A(X,Y)=5 GOTO 6608 

1686 G0SUB26186:GOTO 588 

1788 REN DESSIN 

1710 GOSUB 2BI06 

1728 L0COTE23, 13:PRINT "Tapez la colonne 

■:L0CflTE37,23:Z#=INKEY$:IF Z*="" THEN 17 

28 

1738 X2=VAL(Z»> 

1748 L0CATE23,15iPRINT"Tapez la lune." 

1758 L0CATE23, 16:PRINT "Puis le nuiero 1 : 

L0CATE23, I7:PRINT- de l'objet." 

1768 LOCATE 37,23: Z*=INKEYt: IF Z*="" THE 

N 1766 

1770 Y2=VAL<Z*> 

17B0 GOSUB 281 B6 

1798 LOCATE23, 13: PRINT" 1: Scorpion" 

1888 LOCATE23, I4:PRlNT-2:tlof.alre- 

1816 L0CATE23, t5:PRINT"3:Coffre fer»e" 

1826 L0CATE23, 16:PRINT"4:Clef 

1838 LOCATE23, 17: PRINT"5: Tal isBan" 

1848 LQCATE23,18:PRINT"6:Fleche' 

1358 L0CATE23,19:PRINT-7:fiole' 

1868 LOCATE23,20:PRINT"8:Coffre ouverf 

1878 L0CATE23, 21: PRlNT-9:Ef facer ■ 

1888 L0CATE2*X2+2,2*Y2+2:Z*=INKEY*:IF Z% 

=■" THEN 1888 

" " THEN PRINTGR*(2) 
THEN PRINTGR*(3) 
THEN PRINTGRK4) 
THEN PRINTGRX6) 
THEN PRINTGR*(7) 
THEN PRINTGRXB) 
THEN PRINTGR*(9) 
THEN PRINTGRX12) 
l^^B IF Z*=*9" THEN PRlNTGRt(l) 
1988 GOSUB 2ei88:GOTO 500 
5008 REN PORTES 

5816 IF PPlOPl THEN P1=PP1 : LINE( 184,24) 
-<184,64),4*Pl:LINE-<288,56>,4*PI!LINE-( 
286,28),4*Pl:LINE-(184,24),4*Pl 
5828 IF PP20PE THEN P2=PP2: LINE<238,2B) 
-(238,52),4*P2:LINE-(258,52),4*P2:LI«E-1 

358, 28>,4*P2:LINE-(238,28),4*P2 

583B IF PP30P3 THEN P3=PP3: LINE(296,28) 

-<296,56),4*P3:LINE-(311,64>,4*P3:LINE-( 

3U,24),4*P3!LINE-<296,28),4*P3 

5648 RETURN 

5186 REN IMPOSSIBLE 

5118 C0L0R7:L0CATE27, 23: PRINT" IMPOSSIBLE 

■::FORI=l TO 588: NEXT: COL0R2 

5128 RETURN 

5208 REN POSITION OBJETS 

5218 ATTRBl,l:01=6:02=9:FOR 1=1 TO 4 

5226 IF 0(I) = 1 THEN L0C(VTE01,24:PRINTGR* 

(I+5);.-01=0I+3 ELSE L0CATE02,24:PRINTGR* 

(1); J 02=02-3 

5236 NEXT:ATTRB8,0 

5248 RETURN 

5388 REN REHISE OBJET 

5318 A(X,Y)=l:O(O)=0:NO=NO-l 

5320 ATTRB1, I : LDCATE33,9: PRINTGRJ(l); : AT 

TRB8,8!N=1: GOSUB 20888: G0SUB526B:GOSUB2B 

5338 RETURN 

6686 REN OBJETS V01SINS " 

6816 ATTRBI,l:L0CATE33,9:PRINT GRS<A<X,Y 

)>;:FOR I=1T04:LOCATE16+3*I,24:PRINTGR*( 

1 ) ; : NEXT 

6828 V(1)=A(X,Y*1)!V(2>=A(X,Y-I):V(3)=A( 

X*1,Y)!V(4)=A(X-1,Y):V=13 

6836 FOR 1=2 TO ]2:F0R J=l TO 4 

6848 IF V(J)=I THEN LOCfiTEV, 24: PRINT GR* 

(I)f JV=V+3 

6656 NEXT:NEXTJATTRB8,8 

6868 GOTO 588 

6368 REN SCORPION 



1968 IF Z* 
1918 IF Z* 
1928 IF Z» 
193B IF Z* 
1948 IF Z$: 
1956 IF Z* 
1968 IF Z* 



ZX81 +^»^^^^^^ 



6318 IF Z»=-4" AND 0(4)=1 THEN 0=4:A=i 
OSUB53B0:GOTO 6080 

6326 GOSUB 2618B:L0CATE23, 13:PRlNT"Le 
orpiori woue-;:L0CATE23,14:PRINT ■ a pi 



6336 LOCATE 23, 16:PRINT " VOUS ETES"; 
6346 L0CATE23,19:flTTRBl,l:C0L0Rl:PRINT ■ 

n0RT-::ATTRB8,e:PLAYMU2*:G0T0 23868 
6480 REN M0N5TRE 

6418 IF Z*=-2- AND 0<2>=t THEN 0=2=A=7:G 
DSUB53B0:GOTO 6080 

6426 GOSUB 20188: L0CATE23, 13:PRINT"Le bo 
nstre raus"; :L0CATE23, 14:PRINT - a deuor 

643e'L0CATE 23,I6:PRINT " VOUS ETES"; 
6448 L0CATE23,19:ATTRBI,l:C0LORl:PRINT - 

HORT-S = ATTRB6, 8: PLAYMU2*: GOTD238B0 
6586 REN CH-SOU 

6518 IF Z*0*1" OR 0(1)01 THEN G0SUB518 
8: G0T05B8 

6528 0< 1 >=B: NO=NO- 1 : A=8: N= 1 : G0SUB26888: G 
0SUB5286 

6538 ATTRBl,l:L0CATE33,9:PRINTGR*(12);iL 
0CATE33,5:PRINTGR*C11);:ATTRBB, 8JL0CATE3 
7,23 

6546 2*=INKEY*:IF ZS-" THEN 6548 
6556 IF Z*<>-3- OR 0(3)01 THEN 658B 
6568 0=3:A=6:G0SUB5368:A(X,Y)=12 
6570 ATTR81,l:L0CATE33,9:PRINTGR*(12);:L 
0CATE33, 5: PRINTGRK I )f : ATTRB8,-6: GOTO560 
6589 GOSUB 28168: L0CATE23, 13:PRINT"La ch 
auve-souris-;:L0CATE23,14:PRINT- a bu t 
ouf;:LDCATE23, 15SPRINT- uotre sar>9 • -; 
6598 L0CATE23, 17:PRINT" VOUS ETES - ;:LOCA 
TE23,28:ATTRBl,l:C0L0Rl:PRINT" NORT';:A 
TTRB6, 8: PL6YHU2*: GOTO230BB 
6688 REN COUPE 

6618 IF Z*<>*1" OR 00)01 THEN G0SUB518 
B: GOT 0586 

6628 O<l)=e:NO=*tO-l:A=12:N=l:GOSUB2808B: 
GOSUB5280 

6638 ATTRBl,l:L0CATE33,5=PRINTGR*(18)i:L 
0CATE33, 9:PRINTGRS(I2);:ATTRB6,6 
6646 GOSUB 20180: L0CATE23, 13=PRINT*Le tr 
esor vous-;:L0CATEE3,14:PRINT ■ appartie 



16428 REN CLEF 
10430 M=l:A=6:G05UB 28866 
10440 REM TALISHAN 
1B45B N=l:0=7:G0SUB 28688 
1B468 REN FLECHE 
■f/? 16478 N=1:A=B:G05UB 288BB 
_C&1 18486 GOTO 106 
G 28866 REM POSITION OBJETS 

28816 X1=INT(RND*16)*1 
c 28B28 Y1=INT(RND*18)+1 
iu 28838 IF A<X1,Y1)01 THEN 2BB10 

20B40 IF X1=X AND Y1=Y THEN 20010 

20850 N=N-l:A(Xl,Yl)=A 

2B86B IF N=8 THEN RETURN ELSE GOTO 26816 

2B100 REN EFFACE 

28118 ATTRB0,8:FOR 1=1 TO 9:L0CATE23, 12+ 

I SPRINT" *:NEXT 

20120 RETURN 

21068 REM REGLES 

21810 CLS:PRINT" Le jeu consiste a deco 



18888 REN INITIALISATION TABLEAU 

18B10 CLEAR,, 17:DIM flCH, 11) 

16B2B DEFGR*(6)=8, 16,58,84,88,28,36,64 

10838 DEFGR*(l)=8,6,e,8,B,0,0,e 

18848 DEFGR*(2>=6,38, 10,2, 226,62,254, 18 

18656 DEFGR*(3)=8, 126,219,255,195, 195,12 

6,60 

16866 DEFGR*(4>=6B, 182,255,255, 171,213, 1 

71, 255 

18078 DEFGR*(5)=6B, 1B2, 255, 255, 171,213, 1 

71,255 



I DEFGR*(16> = 129, 195, 126,126,60,24,2 



16138 DEFGR*<I1)=129, 0,189,? 

9,129 

18140 DEFGR*(12)=0,0,8,255,1 



55 



1,213,171,2 



10158 DEFGR*(13)=8, 8, 8,28, 42, 8,8,8 

10166 DEFGR*(14>=8,8, 16,8,252,8, 16,6 

16176 DEFGR*(15) = 16, 16, 16,84,56,16,6,0 

18186 DEFGR*( 16 )=8, 8,16, 63, 16,8,6,8 

18198 HU1«="T504L24DOREMISOFAFALASOS005D 

004SI050004SOHILASOFAHIRED003S004D003SIO 

4D0* 

10280 NU2*="T1B03L24FAMIFAREMIDOREREFAFA 

SOFAMI RED0NIFAL54M I L I BREL96RE " 

18218 C0LORl:ATTRBl,l:L0CATE7,7:PRINT-CH 

ASSE ftU":L0CflTEll,ll:PRINT"TRESOR" 

16226 C0LDR7:L0CATE4,2:PRINTGR*(3):L0CAT 

EI6, 14: PRINT GR*(4>:CDL0R5:L0CATE1B, 18: PR 

INTGRX2) 

10230 COL0R2: LOCATES, 1 1 : PR I NTGR*<6 > : LOCA 

TE29, 17:PRINTGR*(7>:C0L0R4:L0CATE22,3=PR 

INTGR»(8HL0CATE1,17:PRINTGR*(9) 

1B248 COLOR3:LOCATE3B.1:PRINTGR*(1B>:L0C 

ATE22,28:PRINTGR*(1!):C0L0R6!L0CATE29, IB 

16250 ATTRB8,8:C0L0R2:L0CATE8,23, 8: PRINT 
* Appuaer sur "; : C0L0R1 :PRINT"entree"; : 
C0L0R2:PRINT" pour conencer* 
18268 PRINT*ou sur *; :COL0Rl:PRINT-R": :C 

0L0R2:PRINT' pour avoir la regie de Jeu. 

16278 Z*=INKEY*:Z=RND:IF 2*OCHR*(13> AN 

D Z«0-R- THEN 16276 

18236 IF Z*="R" THEN GOSUB 21868 

1 829B C0NSDLE22, 24 : CLS: CONSOLES, 24 

183BB FOR 1=1 TO I8:F0R J=I TO 16 

10310 A(I,J)=I 

10328 NEXT: NEXT 

16336 X=B:Y=B 

16346 REM 25 SCORPIONS 

18358 N=25:A=2:G0SUB 28808 

18368 REN 5 HONSTRES 

10378 N=5:A=3:G0SU8 20066 

10386 REN 2 COFFRES + CHAUVES-SOURIS 

18396 N=2:A=4:G0SUB 20608 

18408 REN 1 COFFRE * COUPE 

16410 N=l:A=S:GOSUB 20888 



chat* 



21038 PRINTJPRINT* 
.Sous ce dessin la] 



21848 PRINTSCOLORISPRINT" Vol 
C0L0R2:PRINT" donne les obietj 
2185B PRINT:COLORl:PRINT" Voi 
= COLOR2:PRINT-donne ce que rei 
E-;:PRINT"pieces uoisincs.* 
PRINT:PRINT" Les deplai 



21876 PRINT:PRINT" 
dont I'i 



II exi 



de redoutables ctiauues-souris. " 
21886 L0CATE26,24,B:PRINT"Appuaer sur "; 
: COLOR I : PRINT "en tree"; : COL0R2 
21B98 Z(=INKEY*:IF Z%=" THEN 21B96 
21166 CLS:ATTRB1, l: COLOR! :L0CATE6,l:PRIN 
TGR*(2):L0CATE8,4:PRINTGR*<3>:L0CAT£6,7: 
PRINTGRt(ll) 

21118 LOCATES, 1B:PRINTGR*(4) :L0CATE8, 13: 
PRINTGR*(12):L0CATE13, 1 : PRINTGR*(9): LOCA 
TEI3,4:PRINTGR*(7):L0CATE13,7:PRINTGR*<8 

21128 LOCATE 13, 16: PRINTGR*(6):L0CATEI3, ] 

3:PRINTGRS(ie):ATTRB6,6:COL0R2 

21 138 L0CATE3, 1 SPRINT "Scorpion": LOCATE 16 

,8:PRINT"Fiole (pel-net de":L0CATE19, 1 :PR 

21 148 L0CATE3, 4:PRINT-Nonstre":L0CATE16, 
3!PRINT"TaliSBan (per«t de": LOCATE 19, 4: 
PRINT'tuer un aonstre)" 

21158 L0CATE3,6:PRINT"Chauue-":L0CATE4, 7 
:PRINT , souris":L0CATE16,6:PRINT"Fleche ( 
peraet de tuer": LOCATE 19, 7: PRINT'une cha 

21160 L0CATE3.9!PRINT"Coffre":L0CATE5, 18 

:PRINT"fer«e":L0CATE16,9:PRINT"Cle (per» 
et d'ouvrir":LOCATE19,10!PRINT"un coffre 

21178 L0CATE3, 12:PRINT"Cof fre" : L0CATE4, 1 
3:PRINT-ouuert":L0CATE16, 12: PRINT'Coupe 
(donnant la':L0CATE19, 13:PRINT"uictoire) 



21186 L0CATE2,I7:PRINT'Toi 
s*:PRINT' 



Utlli: 



du chateau 
21198 LOCATES, 21: PR I NT-BONNE CHANCE '* 
21288 L0CATE21,23:PRINT"Appuiier sur ";:C 
0L0Rl:PRINT"entree-;:CDL0R2 
21218 Z*=INKEY*:IF 2*="" THEN 21218 ELSE 

236B0 REN FIN DE PARTIE 

23616 COLOR2:GOSUB2818B:L0CATE23,13:PRIN 

T-VOULEZ V0US":L0CATE25, 15:PRINT"REJ0UER 

"SL0CATE26, 17: PRINT "O-'N 7" :L0COTE37, 23 

23628 Z*=INKEY*:IF Z«="" THEN 23818 

23838 IF Z*='H" THEN CLS:END ELSE GOTO 1 

8298 



* 
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3-56 

sip 
"EL 


ERRATUM SUR TO 7 

ROULETTE du n* 60 
Vous etiez sur le point de vous 
enrichir et puis... Clamez-vous 
et lapez les tignes suivantes: 
FORI=@TOJO-i:h>:i>=0:N*<I>= 
rJO*a) = "EL"GOTO410 
F0RI=8T0J0-1 : J=0: IFJOJO ) = 
GOTO7S0 



jg^V 



^z- 



6LS5 GOTO UH 

6160 PRINT AT T,C;'-| 

BL61 ir NOT OC TMfeN PHINT AT 

B16& RETURN 

6350 GOTO UR 

6255 PRINT RT T,Y,"I 

6S66 RETURN 

6SO0 GOTO UR 

6S65 RETURN 

6380 SOTO UR 

63«5 RETURN 

631B SOTO UR 

6315 IF OC THEN RETURN 

8316 LET GOD 
317 GOTO PB 
6325 RETURN 
6330 GOTO UR 
6336 SOTO MR 
63«fl RETURN 
634B PRINT AT T,J:'*" ";BT U,l 

J";p.t u,r;- J'';rt b,r, 

.6346 IP NOT BC THEM PRINT AT 
63*7 IP NOT CO THEN PRINT RT 



63BB RETURN 
' 0355 If PC THEN RETURN 
™ LET PC-D 

SOTO Yfl+D 
ETURN 



6357 qS: . 

6375 RETURN 
6588 PRINT 

;RT U,Ni" r 



ST I 



I ■'* 



ogei tp mot pc then print rt i 

S3B2 RETURN 

6305 SOTO UR 

6395 GOTO UR 

B*00 IF HC THEN RETURN 

6401 LET PID.DI -P(D,0) -6 

64.0B LET HC.6 

6*03 GOTO RB 

6405 RETURN 



'- F Bfia IF NOT HC THEN PRINT I 
».« 6440 RETURN 



6446 GOTO UR 

6*50 RETURN 

6*65 GOTO UR 

6*70 RETURN 

6*90 SOTO UR 

6*95 SOTO UR 

B500 RETURN 

' 6505 GOTO UR 

} 6515 GOTO UR 

0535 LET PR. 

1 PR+66 

BB36 GOTO 1666 

6S*0 GOTO UR 

6B*5 G05U6 UR 

65*6 SOTO 6360 

6 5 SB RETURN 

B5S5 GOTO UR 

6610 GOTO UR 

6615 PRINT RT 

6616 rVFuW 

6630 GOTO UR 

I 6635 RETURN 

6650 GOTO UR 



6665 GOTO UR 



6710 
6715 
6720 
6726 
67*0 

6750 
6755 
67BB 

676^ 

6796 
6760 
6761 

6762 
6763 
6770 



IF NOT L6 THEN RETURN 



GOTO UR 
GOTO UR 
RETURN 
GOTO UR 
GOTO UR 
SOTO UR 
RETURN 
IF NOT 
PRINT 

IF NOT ZD THEN PRINT RT 

RETURN 

IF UB T .._ 
LET UB-D 

GOSUB ■■" 
:■:■"".: 



6761 LET PR-PA- 

6762 LET KR.KA- 

6763 LET Ofl.C 
678* GOTO 410 

S?.S5 ^H N0 LQ HC n T ?5 N 00T0 Ufl 

"b*(D,R 

EN MELE. 
, 6790 iosue Zfl 
6799 RUN 



Hi! ;St b ScIS bh BtTU " N 

6612 GOTO RB 



6015 RETURN 

S22? ** cc ™CN RETURN 

esai let ccbd 

_. 6622 GOTO YR*D 

OR 6825 GOTO UR 

. . 60*B GOTO Ufl 

'.C 6050 RETURN 

68BB LET Bt(0,R TO S6t ■"■""■ 
N £ RIUIERE -6R8LE MOUURnV" 
6B5B GOSUB Zfl 



60B7 GOTO 126B 

6665 RETURN 

BBSS SOTO UR 

6005 GOTO Ufl 

6095 RETURN 

6901 PRINT AT T 

fc, , '"iRT U.T.Ti ■■■ 
;RT U,u,"fc ■ 
6903 RETURN 
BMB If ZB THEN 



6910 RETURN 
6915 SOTO UR 
7080 GOTO Ufl 



dossiers 

Belote, rebelote et dix de der ! 

La belote a 57 cartes Apple c'est plus difficile mais c'est bien plus beau 
que la belote a 32 cartes Apple. 

Cette semaine comme promis, void un inventaire des cartes disponibles pour les petits trous de votre Apple 11+ et lie. Pour les prix, 
c'est n'importe quoi, les boutiques se tirant allegrement dans les pattes a coups de promotion et changeant les tanfs a la Vitesse du 
TGVde 17heures45. 

Pour les cartes americaines, c'est encore pire, le dollar ayant tendance, depuis quelque temps, a se prendre pour un ascenseur tou. 
Vous serez peut-etre degus de ne voir qu'une cinquante septaine de cartes, mais nous n'avons pas voulu mettre 237 fois les cartes 
80 colonnes ou les interfaces imprimantes, et nous avons jete les cartes pourries. La denomination ALP n'est pas un nom de 
constructeur mais correspond a "A La Pelle" ce qui signifie, en clair, qu'il y en a un wagon et qu'elles sont pareilles que les autres et 
vice-versa et r6ciproquement. 





80 COL ETENDUE 

80/132 COL 

ACCELERATOR II 

ADALAB ALI 

API 216 

APPLE TELL 

APPLI-CARD 

BROSSE A RELUIRE 

CAN 1608 

CAN 1612 M1 

CARTE A WRAPPER 

CB 

CNA 212 

COPY MASTER II 

CR8C 

DIG I SECTOR 

DtTHERTIZER 

E16CP 

ECHO SPEECH 

ENHANCER II 

ES24 

GRAPLER t 

HAPPI-CARD 

HC1 

IEEE 488 

INTERFACE PARALLELE 

INTERFACE SERIE 

MEM 4 

MEM 16 

MEM DOS 

MICROB 1 

MOCKINGBOARD 

MODEM NOVATION 

MODEM UNIV SECTRA 

MU-O-1000 

MUSIC SYSTEM 

P2 

P/S BUFFER CARD 

PKASO 

PORTE-PAROLE 

QUICKLOADER SCRG 

RAM LEGEND ME HI 

REPEATERR 

ROMWRITER 

RVB ETENDUE 

32 

SMARTCHIP 

SOURIS 

SPEEDEMON 

STAR SPRITE 

SUPERSPRITE 

TEXTE 80 COL 

THE CLOCK 

TIMEMASTER 

TRAC-DENT 

WILDCARD 

Z80 SOFTCARD 



2.380 
1.850 
7.400 
5.400 
4.250 
7.000 
5.500 
7,50 
2.590 
10.030 



4.130 
990 
2.590 
5.400 
3.990 
3.050 
1.800 
1.120 
2.590 
1.700 
1.100 
1.770 
3.000 
1.290 
1.365 
7.430 
10.300 
2.400 
2.590 
1.200 
6.225 
2.446 
860 
5.420 
1.410 
3.400 
Inconnu 
1.800 
1.900 
4.900 
420 
990 
2.965 
1.780 
5.800 
1.210 
2.600 
3.200 
3.600 
1.285 
4.240 
950 
6,75 
620 
3.100 



ALP 

ORBITAL 

SATURN SYSTEMS 

INTERACTIVE MICROWARE 

APrLIED ENGINEERING 

HELLO INFORMATIOUE 

PERSONAL COMPUTER PRODUCTS 

SHIFT 

MID 

MID 

TOUS MAGASINS ELECTRONIQUES 

CB 

MID 

APPLIED TECHNOLOGIES 

MID 

MICRO WORKS 

COMPUTER STATION 

MID 

STREET ELECTRONICS CORP 

VIDEX 

MID 

ORANGE MICRO 

HAPP ELECTRONICS 

MID 

APPLE 

ALP 

ALP 

MID 

MID 

MEMSOFT 

MID 

SWEET MICRO 

NOVATION INC 

SECTRAD 

MICRODIMENSIONS 

MOUNTAIN 

MID 

PROMETHEUS 

INTERACTIVE STRUCTURES 

EDICIEL MATRA HACHETTE 

SCRG 

LEGEND 

HOME 

MOUNTAIN 

CHAT MAUVE 

MID 

QUANTUM LEAP 

APPLE 

AVANT GARDE 

SYNETIX INC 

ALP 

MOUTAIN 

APPLIED ENGINEERING 

SHIFT 

CENTRAL POINT 

MICROSOFT 




AJOUTE 64K SUPPLEMENTAIRES 

80 OU 132 COLONNES 

PORTE A 3.6 MHZ LE MICROPROCESSEUR 

POUR BRANCHER TOUT INSTRUMENT DE LABORATOIRE 

ANALOGIQUE/DIGITALE PROGRAMMABLE 12 BITS 16 CANAUX 

COMPATIBLE NORMES VIDEOTEXT MINITEL 

CARTE CP M EMHZ 64K + LOGICIEL 

EH EH 

CONVERSION A/D 8 BITS 16 VOIES 

CONVERSION ANALOGIQUE/DIGITALE 12 BIT 16 VOIES 

sc 

CARTE BLEUE AVEC BANDE MAGNETIOUE INTEGREE 

CONVERSION A/D 12 BITS 2 VOIES 

CARTE DE COPIE 

CARTE 8 RELAIS + 8 ENTREES TTL 

DIGITALISATEUR DIMAGES 

DIGITALISATEUR VIDEO 

CARTE PIA ■* COMPTEUR PROGRAMMABLE 

SYNTHETISEUR DE PAROLE 

BUFFER + DEFINITION DE TOUCHES 

INTERFACE 24 ENTREES 24 SORTIES TTL 

INTERFACE IMPRIMANTE 

INTERFACE IMPRIMANTE + EXTENSION GRAPHIQUE 

CARTE HORLOGE CALENDRIER 

SPECIALISATION ROBOTIQUE 

SC 

KIT CENTRAL MULTIPLEX 4 POSTES MEM/DOS 

KIT CENTRAL MULTIPLEX 16 POSTES MEM/DOS 

EXTENSIONS APPLESOFT EN ROM 

BUFFER 64K POUR IMPRIMANTE PARALLELE AVEC CARTE P2 MID 

SYNTHETISEUR DE SONS 

SC 

sc 

CARTE ANALOGIQUE/DIGITALE 

PERMET DE JOUER DE LA MUSIQUE SUR 16 CANAUX 

INTERFACE PARALLELE IMPRIMANTE 

INTERFACE PARALLELE ET SERIE COMBINEES + BUFFER + GRAPHIQUES 

CARTE GRAPHIQUE POUR IMPRIMANTE 

SYNTHETISEUR DE PAROLE 

CHARGE TRES RAPIDEMENT LES FICHIERS 

FONCTIONS CLAVIER POUR II + 

PROGRAMMATEUR D'EPROM 

64K SUPPLEMENTAIRE + DOUBLE HAUTE RES. 

INTERFACE SERIE NORME V24 RS232 C 

FAUX MULTITACHES t EQUIVALENT DE 64 APPLES 

SOURIS COMPRISE 

ACCELERE LA VITESSE DE TRAITEMENT 

CARTE GRAPHIQUE 

CARTE GRAPHIQUE 

SC 

HORLOGE 

HORLOGE + LOGICIEL 

BROSSE A DENT ELECTRONIQUE 

CARTE DE COPIE 

Z80 + SOFTS CP/M 




En Angleterre, il existe une extension. Eh oui, il en existe une. 

Une quoi ? Une extension. Ou ? En Angleterre. ... ^d,** -7on 

Bon je vais vous dire de quoi est-ce qu'il s'agit: de lextension fabriquee en Angleterre. Eh bien oui, c est une extension, CP/M Z80 
anqlaise Pour le quoi *? Pour le lie. Si vous allez en Angleterre acheter une extension pour le lie, c/a vous coutera 95 livres plus la 
traversee 90 francs tarif famille non-extensible plus et encore le train pour aller chez CIRTECH, qui est une compagnie anglaise. On 
peut aussi trouver des disques durs (pas en Angleterre, mais comme ce n'est pas un produit extensible, allez done savoir...) pour le 
lie mais a vous de les trouver, mais n'allez pas en Angleterre ! 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENT1EL DE 420 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 10 =520 FRANCS. ABONNEMENT POUR 6 MOIS : 220 FRANCS. Pour I'etranger: + 80 F. pour 1 AN 



NOM- MATERIEL UTILISE: 

PRENOM : CONSOLE : 

ADRESSE: PERIPHERIQUES : 

REGLEMENT JOINT : □ CHEQUE DCCP 



+ 40 F. pour 6 MOIS. 



C'est nouveau, pa Went de sortir 



EDEN, 

PARADIS DES ANGLOPHILES 



Pour ceux qui parlent et M- 
sent I'anglais comme moi le 
laponien (je suis bilingue La- 
ponien-Francais, ca peut ser- 
vir), vous pouvez aller (aire 
un tour au rayon libra irie 
d'Eden, le magasin dont 
nous avons deja eu I 'occa- 
sion de vous parJer. Vous 
pouirez trouver. outre les fa- 
meux "Os bo me- McGraw- 

Hill", veritables encyclope- 
dies des processeurs. toute 
la collection "Granada". Cet 
editeur est un peu I'equiva- 
lent de PSI chez nous. Tous 
les micros sont represents 
{mis a part les Thomson, 
bier* entendu), et les livres 
sont ecrits avec la rigueur et 
I'humour qui regnent outre- 
Manche. El comme les ven- 
deurs n'ont rien a faire de 
leurs journees (le magasin 



s'obstine a etre desespere- 
ment videj, ils s'empressent 
pour vous servir des que 
vous pointez le bout de voire 
rtez. C'est gentil. ils pour- 
raient tres bien continuer leur 
partie de Donjons et dragons. 




LES LINGOTS DE LA 
MICRO 



II y a de I'or dans les poubel- 
les de la micro-informatique 
C'est ce qua realise Yves 
Gehanne, PDG de la societe 
Valmet a Falaise dans le Cal- 
vados. II recupere chaque 
jour deux semi-remorques 
pleins d'ordinateurs mis au 
rencart Et ('affaire est parti- 
culieremant juteuse. Pour 
chaque tonne qui entre dans 
ientreprise. c'esl 20 gram- 
mes d'or qui tombent dans 
lescarcelle de la societe Ca 
peut vous paraitre derisoire. 
mais c'est r equivalent de la 
teneur en or d'une mine tra- 
ditionnelle. Le principal pro- 
bleme etait de mettre au 
point des techniques chimi- 
ques et mecaniques de sepa- 
ration des divers elements. 
Yves Gehanne a reussi, la oil 
pas mal de recuperateur 




s'etaient cassees les dents 
(en or, bien sur). Moralite, a 
elle seule I'entreprise Valmet 
represente 75% du marche 
francais de la recuperation. 
Pour vous donner une idee, 
voici les resultats de cette 
casse systematique depuis 
quelques mois: 400 kgs d'or, 
3000 kgs d'argent, 20 kgs de 
palladium, 10 kgs de platine. 
Ca vaut tout de mime le 
coup de se decarcasser. Que 
ceci ne soil pas une raison 
pour passer voire micro k la 
moulinette! 



ORIC DESSINE ENFIN! 



Loriciels vient d'editer un lo- 
giciel de conception graphi- 
que sur Oric. Le nom est re- 
butant, mais le produit tres 
bon: c'est une copie de Koala 
Pad sans la tablette graphi- 
que. Un menu vous est pre- 
sents sous forme graphique: 
de pelits carres contiennent 
des symboles lels que lignes. 
formes, cou leurs, caracte- 
res... II suffit de deplacer le 
curseur a I'aide des touches 
flechees du clavier pour 
I'amener sur la case choisie. 
puis dappuyer sur escape 
pour arrive; sur la page gra- 
phique. La, vous pouvez titer 
des trails, faire des cercles 
(ronds), colorier des parlies 
d'ecrans, remplir des formes 
en mode normal ou en mode 
inverse... Un outil tres puis- 
sant, attendu depuis long- version sur disquette Jas- 
temps. On parte meme d'une min pour bientot... 




BABACOOL FRAPPE ENCORE ! 



Llamasoft vient d'editer un 
soft nomme "Psychedelia". 
Ce logiciel tourne sur CBM 
64. VIC 20, Atari, Spectrum 
et Amstrad. II semble dedie a 
ceux qui regrettent le doux 
temps des paves de Mai 66. 
Les slogans publicitaires sont 
explicites: "Vous ne pouvez 
pas perdre ni gagner, seule- 
ment vous amuser. Pas de 
frustration, pas de tuerie, 
seulement du plaisir. Bran- 
chez-vous sur la musique, 
branchez-vous sur les tene 
bres, branchez-vous". Le pro- 
grammer de cet "ultimate 
trip' est Jeff Minter, auteur 
notamment de "La revanche' 
des chameaux mutants" et 
des "Moutons dans lespace", 
qui sont des references en 
matiere de folie. II ne s'agit 
pas d'un jeu, mais d'un syn- 



thetiseur d'rmages, couple a 
un generateur sonore. II vous 
suffit de determiner une 
forme colore e et un rythme 
ou un son, et le programme 
improvisera allegrement sur 
ces bases, ere ant des 
Formes, des animations, des 
sequences de cou leurs et 
des effeis sonores. II ne vous 
reste plus qua vous asseoir 
et a contempler. Sous le cla- 
vier, la plage. 




PARTIAL ET INJUSTE 



Notre confrere anglais. Prac- 
tical Computing, vient de 
faire un banc d'essai des 100 
ordinateurs qui se vendent ie 
plus en Angleterre. Face a 
une photo, un texte elabore, 
et sur une petite colonne, le 
pour et le contre en deux 
mots, 

Comme nous sommes des 
chiens, nous allons vous 
don net les appreciations 
"contre" pour les micros que 
Ton trouve en France. En ou- 
bliant bien evidemment les 
"pour"! lis ne sont pas ten- 
dres, les collegues... 

AMSTRAD; Rien. 
APPLE lie: 6 bits 
APPLE lie: Cher. Vieux. 
AQUARIUS: RAM et basic li- 
mites, cher a etendre. 
ATARI 600XL: N est plus fa- 
brique. 

ATARI B00XL: Basic limite. 
Peripheriques incompatibles. 
ATMOS: Pas assez de logi- 
ciels. 

CASIO PB 700: Pas de RS 
232. Moins de logiciels que 
Sharp. 

COMMODORE 64: Basic 
atroce, idem pour les ma- 
nuals et docs. 

ENTERPRISE: N'exisle pas 
encore. 
IBM PC: IBM. 




MACINTOSH: Peu de capa- 

cite de sauvegarde. 

MEMOTECH: Basic peu cou- 

rant. 

MSX: Fabrication etriquee. 

Pas de logiciels. Prix. 

SHARP PC 1500: Ecran trop 

petit. 

SINCLAIR QL: Microdrives. 

Basic trop lent. 

SINCLAIR ZX 81: Pas de 

couleurs ni de sons, clavier 

atroce. 

SPECTRUMiFabrication dou- 

teuse. Pas pour un usage 

professionnel. 

SPECTRUM PLUS: clavier 

Serigraphie atroce. Prix. 



THE GREAT FUN 
SHOW 



Si vous etes nul en geogra- 
phie, n'achetez surtout pas 
"Carte de France" sur T07 de 
Vifi Nathan, cette cassette 
risquerait de compromettre a 
tout jamais vos chances de 
devenir malgre tout un grand 
geog raphe. 

Sous le fallacieux pretexte 
que ce logiciel se rapporte a 
notre chere France, vous 
aurez droit durant le charge- 
ment a une superbe version 
de notre hymne national (la 
Marseillaise, pas "The Great 
Break Dance And Smurf 
Show") revisits par The Sha- 
dows, groupe folklorique dont 
les plus anciens d'entre nous 



fin du chargement". Ce 
n etait pas fini. Au bout d'un 
laps de temps certain, un 
menu s'affiche a I'ecran. 
comporlant plusieurs options 
parmi lesquelles un jeu. 
N'hesitez pas. choisissez le 
jeu. El sous vos yeux effares 
s'inscrit la phrase:"Je cher- 
che le jeu". Et c'est reparti 
pour un tour. 

Bref, vous avez pris un cafe, 
un bain, la tangente et les 
choses en main, le jeu a eu 
le temps de charger, vous 
pouvez revenir. Et la. oh stu- 
peur. vous pouvez enfin jouer 
au jeu formidable des vtlles, 
des montagnes. et des fleu- 




se souviendront certaine- 
ment. Dans le meme temps, 
une accorte donzelle 

(d'apres la voix) vous pre- 
viendra aimablement que 
vous venez d'acheter une 
cassette de chez Vifi Nathan, 
que le chargement durera un 
certain temps, que la tempe- 
rature au sol est de 18 
degres et que veuillez etein- 
dre vos cigarettes s'il vous 
plait. 

Bref. longtemps apres, le 
chargement est enfin ter- 
ming. Vous avez alors droit a 
un ecran de presentation su- 
perbe represent ant la 
France. Puis une phrase 
s'inscrit: "Patienlez durant la 



ves. Le principe? il est sim- 
ple: lorsqu'un nom de ville 
s'affiche. vous devez poinler 
lendroit approximate ou se 
situe cette ville sur la carte. 
Et c'est la que reside reelle- 
ment I'interet du jeu: reussir 
a faire marcher le crayon op- 
tique du premier coup, 
Abregeons. Par acquit de 
conscience, nous I'avons fait 
tester par des enfants. Que 
croyez-vous qu'il arriva? Ils 
nous jetterent la cassette a la 
figure, oui. Et se rabattirent 
gaiement vers Lode Runner, 
arguant du fait qu'il vaut 
mieux un bon prof de logique 
qu'un mauvais de geo... 



PIRATEURS, 

ALLEZ AU CONGRES 

ANTI-PIRATEURS 



Le SECURICOM 85 se tiendra 
a Cannes (au palais des festi- 
i ou des festivals, au 
choix) du 6 au 8 Mars 1985. 
Qu'est-ce que le SECURICOM 
Bonne question ! C'est le 
troisieme congres mondial de 
la protection et de la securite 
informatique et des communi- 



cations. Tout et le reste sera 
propose contre les infames qui 
osent s'amuser avec les pro- 
tections et la propriete d'au- 
trui. 

Alors... Pirateurs si vous ne 
voulez pas passer pour des 



ANKHde 

BEYOND SOFTWARE 



Ce soft est sans doute le lo- 
giciel le plus deroutant ima- 
gine au cours de la decennie 
ecoulee. Toute sa conception 
est centree autour d'un 
meme principe: rester logi- 
que au niveau fondamental: 
paraitre illogique ou meme 
incoherent lors de I'utilisa- 
tion. 

Vous manipulez un "esprit 
sondeur" au sein de lunivers 
d'Ankh. Ce monde est subdi- 
vise en soixante quatre 
pieces. Vous devez parcouhr 
chacune d'elles afin d'y de- 
couvrir leurs tresors ou leurs 
pieges. Vous ne disposez 
que d'un vaisseau transpor- 
tant voire esprit. A chaque 
instant, tous vos sens sont 
sollicites par un environne- 
ment riche en stimuli multi- 
ples. Chaque decouverte 
augmenle votre energie ex- 
ploratrice. Chaque contact 
avec I'ennemi ou avec I'in- 
connu vousepuise. 

Vous vous balladez au ha- 
sard? J'espere que votre 
bonne etoiie est vraiment 
bonne. Sinon. vous risquez 
d'y rester jusqu'a la fin de 
vos jours. 

Vous tentez de reflechir 
piece par piece? Ce n'est 
pas encore la solution! Eh 
oui! Tout les elements de ce 
monde sont connexes. L'ac- 
tion eftectuee dans la salle 
numero six a peut-etre une 
influence sur la salle dix- 
neuf. A moins que le change- 
ment n'ait lieu dans la cin- 
quante deux? 

d'affolement! Restez 
calme et ouvrez grand vos 
yeux et vos oreilles. Toutes 
les images, tous les sons 
sont importants. Essentiels 
meme! Un exemple s'impose. 




II existe un ensemble de dix 
salles contigues. Un indice 
visuel vous permet de deter- 
miner dans quel ordre vous 
devez agir pour recuperer les 
dix objets. Tant que cet in- 
dice vous echappe. vous ta- 
perez au petit bonheur a 
toutes les portes. Le hasard 
en ouvrira certaines. 

REFLEXION! Voila le mot 
magique qui, en compagnie 
de PATIENCE, vous permet- 
tra d'aboutir et de vaincre la 
subtilite sadique des crea- 
teurs d'Ankh. Les passages 
secrets livreronl leur formule 
grace a la tenacite el la pa- 
tience, pas avec la force et la 
brutalitei 

Pas de mystere! Si vous 
aimez le Rubik's cube, si 
vous appreciez le To Dong, 
ce soft vous est destine. Si 
vous preferez les Space In- 
vaders et autres Donkey 
Kong, allez chercher ailleurs! 
Moi, j'aime et j'y retoume! 

Le CERVEAU 



MARECHAL 
NOUS VOILA 



Les etats-majors francais se 
morfondaient avec leurs gros 
systemes informatiques. Le 
p6re Noel ne les a pas ou- 
blies. II a commande a la so- 
ciete americaine GRID quel- 
ques exemplaires d'un micro- 
ordinateur baptise 

COMPASS, qui sera un outil 
d'aide a la decision Cette 
petite merveille d'une valeur 
de 37.500 francs fait deja les 
detices de la Maison Blan- 
che, du FBI et de I'armee 
americaine- C'est egalement 
le premier micro qui a fait le 
tour de la Terre a bord de la 
naverte spatiale. 
Pour les militaires, on prevoit 
une version blindee. Est-ce a 
dire que nos generaux ne 
sont pas soigneux? Non! Le 
blindage evite ies emissions 
d'ondes electriques qui peu- 
vent etre captees par les pi- 
rates de tout poil qui rodent 
autour des bases. Vous 
savez done desormais 
comment eviter le piratage: 
engagez-vous et program- 
mez dans un char d'assaut. 




LES BEA TLES COTES A L ARGUS! 

Deux d'entre eux, du moins: Beatles aurait surveille de 
il s'agit de Paul McCartney et pres le scenario du jeu. Lucy 
H " Ringo Starr. Le premier a in the sky aurait meme ra- 



gards to Broadway Street". 
avec lui-meme, sa femme. le 
second et la femme du se- 
cond, Barbara Bach. Ce film 
donnera lieu des Janvier a 
une adaptation en logiciel de 
la part d'Argus, qui vient 
d'acquerir les droits mon- 
diaux du film. Les premieres 
versions seront pour Commo- 
dore 64 el Atari, et ulterieure- 
ment pour Spectrum. L'ex- 




C'est nouveau, 9a Went de sortir 



DEUX LOGICIELS POUR EXELVISION 

Tout arrive, meme Exelvision 
a droit a des nouveautes 
Electron, magasin parisien et 
vendeur par correspondance 
qui a deja seme une jolie zi- 
zanie dans les prix des ma- 
chines, se lance dans ledi- 
tion de logiciels et commence 
par deux litres pour I'EXL 
100 Joltes boites el jolies ja- 





quettes pour un programme 
de Poker et une gestion de fi- 
chiers. Pas vraiment Ires ori- 
ginal, mais faute de 

Pour les prix et I'adresse des 
revendeurs, reportez-vous a 
vos catalogues de publicite 
habituels. 



CET HOMME VA PARLER PENDANT 
70 HEURES POUR MOINS D'UN 
FRANCS CINQUANTE DE L'HEURE 



Du 16 au 19 fevrier 1985. 
pour 100 trancs vous pourrez 
rentrez dans le Palais des 
congrfis a Paris ou se derou- 
lera le lOeme salon Micro- 
expo, vous serez ainsi au 
courant de * pas mal de 
choses en allant interroger 
les 200 exposants de logi- 
ciels et de materials parques 
dans 7000 metres carres de 
stands. Et vous pourrez, tou- 
jours pour la meme somme, y 
rentrer tous les jours et as- 
sisler k 1'oeil aux soixante-dix 
heures de conference qui se- 
ronl donnees sur des sujets 
aussi divers que MSX, Tel6- 
tei. IBM. Pascal, Basic ou la 
reproduction des hippocam- 
pesen milieu urbain. 
Pour les conferences, nous 



ne sommes pas vraiment cer- 
tains que c'est le gros mon- 
sieur de la photo qui animera 
toutes les reunions: si c'est 
le cas, il va perdre pas mal 
de kilos et il sera probable- 
ment tres content, surtout sa 
femme! 

Tous les exposanfs de Micro- 
expo sont des mauvais! 
Arrrrrette. I'HHHHebdo y est 
aussi. et sur un stand 
enorme! 

Ah, bon.... Alors tous les ex- 
posants de Micro-Expo sont 
des bonsl 

Ca y est. ils sont pas encore 
la et ils commencent deja a 




VOTRE MICRO VOUS APPORTE-T-IL VOS 
PANTOUFLES. QUAND VOUS RENTREZ? 



Si non. il vous faut combler 
cette lacune au plus vite. S'il 
ne vous reconnaft pas quand 
vous arrivez a la maison, 
dotez-ie dun oeil eleclroni- 
que. C'est possible pour en- 
viron 3000 francs, grace a 
Micron Technology qui vient 
de mettre au point cette ca- 
mera video, dotee de multi- 
ples possibilites: scan per- 
manent, arret sur image, 
stockage d'image. comparai- 
son de dilferentes images. 
Cette petite merveille existe 
en version Commodore 64, 
Apple II, IIBM PC, TRS-80 et 
Macintosh, et toutes les ma- 
chines equipees dune prise 
RS 232. La resolution est de 
256x128 ou de 128x64. et il 
est possible de saisir jusqu'a 
15 images par seconde. 
Ajoutez un synthetiseur vocal 
a voire appareil, et vous 
pourrez ainsi filtrer vos visi- 



10 INPUT VISITEUR$ 
20 IF VISITEURS = "TAT1E 
GERMAINE" THEN SAY "DE- 
SOLE, JE SUIS ABSENT 
POURL'INSTANT..." 




CENT MILLE MICROS 



Y'a pas a dire, quand I'Etat 
se decide a offrir du materiel 
a nos enfants a nous pour 
leurs etudes, ga assure un 
maximum, N'allez pas croire 
que vos impels servent a ar- 
roser les cousins et les co- 
pains, c'est faux! La preuve, 
pour acheter les micros qu'ils 
veulent. la planche a billets 
doit choper le tournis pour 
suivre le mouvement. 

Un peu d'histoire ne nous 
fera pas de mal. En 1978, 
nos gouvernants d'alors se 
rendirent compte du leger (?) 
retard pris dans le domaine 
commun de I'education et de 
I'informatique. Un (bon) plan 
se dessina qui amena a la 
creation du projet "10.000 
micros". Cette operation vi- 
sait a equiper une petite pro- 
portion des etablissements 
publics de machines "peda- 
gogiques" huit bits. Des LX 
529 de Logabax. Sil'z 8 de 
Leanofd et Micral 80 22-G de 
Bull furent ainsi commandes, 
achetes, livres, payes. 

Courant 1983. nos gouver- 
nants d'alors se rendirent 
compte du grave (?) retard 
pris dans le domaine de I'in- 
formatique et de I'education 
reunis. Un nouveau (bon) 
plan fut mis sur pied qui 
donna naissance au projet 
"100.000 micros". Le but 
avoue de cette operation est 
d'equiper tous les lycees et 
LEP (lycees d'enseignement 
professionnel) d'ici fin B6, les 
colleges en 87 et en 88 les 
ecoles primaires. Objectif de 
cette grandiose manoeuvre; 
1988 sera I'annee du un pour 
cent exceptionnel! Effecti- 
vement. chaque groupe de 
cent eleves^de France ou de 
Navarre devra disposer d'une 
machine a cette date. 

Quelles machines ont ete 
commandees pour ce projet 
"100000 micros"? Cinq cons- 
tructors bien de chez nous 
ont ete selectionnes parmi la 
quarantaine ayanl repondu a 
I'appel d'offres. Les micros 
selectionnes ont tous un cer- 



tain nombre de points 
communs. Ce sont des 
micros professionnels 16 bits 
pouvant Stre connecles en 
reseau, pouvant disposer de 
memoire de masse, d'ecrans 
couleufs.de liaisons tele- 
com... Bref des machines de 
course quoi! Les cinq mode- 
les selectionnes sont (e Per- 
sonna 1600 de Logabax (om- 
nipresent dans cette 
histoire). le Goupil 3 de SMT 
(micro vieux de trois ans et 
toujours aussi peu au point), 
le Sil'z 16 de Leanord, le Mi- 
cral 90-20 de Bull (mangeur 
de disquettes repute) et le 
Max 20 E de Matra Datasys- 
teme. 

Pendant I'annee 1989, nos 
gouvernants d'alors se rendi- 
rent compte du dramatique 
(?) retard pris dans le do- 
maine commun de I'informati- 
que et de I'education reunis. 
Un nouveau (dementiel) plan 
germa qui enfanta le projet 
genial "1 .000.000 micros". 
ETC. ETC. ETC. 

Et maintenant, question! Qui 
est-ce qui va ecrire les logi- 
ciels... Euh, pardon! Les di- 
dacticiels destines a ces cent 
mille micros? Peut-etre bien 
vous! Alors au boulot... 
L'adresse est toujours la 
meme. 

P'tit TCHEUR 




DEJA 13 
ILSARRETE QUAND? 



Scott Adams (TM), concep- 
teur de 12 jeux © stupides, 
mal fails et ininteressants. 
ajoute un treizieme litre a sa 
collection dinepties: "Le sor- 
cier du chateau de Claymor 
gue" (registered trade mark) 
Le scenario icj est exacte 
ment le meme que les prece- 
dents (TM), le vocabulaire 
aussi restreint et I'analyse de 
syntaxe © toujours aussi 
inexistante. Mais nous vous 
rassurons: norma'ement, le 
chiffre 13 (copyright) devrait 
lui porter malheur (m). Atten- 
tion, cet article est depose, et 
vous seriez gentil de ne pas 
le recopier car j'ai mis beau- 
coup de temps a I'ecrire. 




COLECO: TOUT EST FAUX i 



Colecovision, fabricant de la 
console Adam, se retire du 
marche anglais Les logiciels 
pour I'Adam seront toujours 
en vente pendant quelque 
temps, mais ce marche ten- 
drait a disparailre aussi rapi- 
dement. Le directeur du mar- 
keting dement toutefois ces 
affirmations. Un grand maga- 
sin a Londres aurail regu le 
reliquat des stocks, soit 
40000 machines. Naturelle- 
ment, le directeur de la so- 
ciety dement vigoureusement 
ce chiffre. La recente baisse 
spectaculaire du prix de la 
console aux Etats-unis mene 
a penser que sa distribution 
pourrait etre stoppee la-bas 



aussi. Bien entendu, ces ru- 
meurs sont fermement de- 
menties. I'Adam, depuis sa 
sortie, est passe par 




breux probleme 
aleatoires. problemes de 
chargement avec la cassette 
a enregistrement numeri- 
que... Mais a priori, tout cela 
est faux. Cela ne tardera pas 
a elre dementi. 



GAGNEZ 80.000.000.000.000.000 
DE FRANCS (ANCIENS) 
GRACE A HEBDOGICIEL 



Comment (aire? C'est tres 
simple. Passez une annonce 
dans n'importe quel journal 
informatique, et attendez. 
Ouelques temps plus tard, 
vous aurez la surprise de re- 
cevoir une lettre comme celle 
qui est en illustration. Elle 
vous propose de gagner la 
somme de 160.000 francs, 
soit 16 millions anciens, pour 
un debours de 20 francs. 
C'est comme au Loto. c'est 
facile et pas cher Mais ii y a 
peu de chances pour que ga 
marche. 

Le principe nest pas nou- 
veau: vous recevez cette let- 
tre. au dos de laquelle sont 
portes trois noms. Vous en- 
voyez 20 francs au premier 
de la liste, vous effacez son 
nom et vous rajoutez le voire 
en derniere position. Puis 
vous faites 20 photocopies, 
vous 1'envoyez a 20 person- 
nes, et vous attendez le pac- 
tole... Vous n'y croyez pas? 



Vous pouvez verifier en tele- 
phonant a John Nelson (!) 
dans le Tennessee. 
Alors, tout va bien? 
Non, car la chaine se brise 
tres rapidement. II suffit 
qu'une personne jette le pa- 
pier et les calculs sont faus- 
ses Si le principe marchait. 
la planele entiere serait deja 
ricne a milliards. Les riches- 
ses naturelles du monde en- 
tier ne suffiraient pas... 
Seules les quelques person- 
nes qui lancent la chaine ont 
quelques chances de gagner 
un tant soit peu d'argent sur 
le dos des credules. Mais 
I'HHHHebdo a trouve mieux: 
vous nous envoyez tous 100 
francs, et nous partons en 
vacances aux Bahamas. Pas 
besoin de faire des photoco- 
pies, de trouver des victimes, 
d'acheier des timbres... Vous 
rendez-vous compte du 
lemps que vous allez gagner 
grace a nous? 



I.B.M.iens I.B.M.isez ! 



Le deuxieme Forum Europeen 
IBM PC se tiendra les 12, 13 
et 14 levrier 1985 a Paris, au 
Palais des Congres. Comme 
son nom 1'indique. seuls les 
materiels. logiciels, produits ei 
services destines a ITBM PC 
sonl concernes par cette expo- 
sition. Malgre tout, si vous 
possedez un compatible PC 
cette manifestation vous inte- 
ressera aussi. 

L'ennchissement exponenliel 
de I'environnement du PC jus- 
tilie plemement lorganisation 
de celle expo mais elle 
s'adressera sans doule a un 
milieu professionnel plutdt 
qua des particuliers. En toui 
etat de cause, si vous posse- 
dez un PC ou un compatible 
precipitez-vous la-bas. vous 
trouverez ce qu'il vous man- 
quait encore 




SINCLAIR-LA-BIDOUILLE 



Sinclair est actuellemenl en 
train de travailler sur un por- 
table qui sortira a la mi-85. II 
sera compatible avec tout les 
logiciels existant pour Spec- 
trum, done il comportera une 
ROM de Spectrum. II aura un 
ecran plat, done beneficiera 
des recherches effectuees 
par Sinclair dans ce do- 
maine. II couiera mains de 
4000 Francs, done benefi- 
ciera des bas prix Sinclair. II 
utilisera la technologie 



CMOS, done pourra fonction- 

ner sur piles. 

Allez, s'il a un vrai clavier, on 

I'adopte. 





VENOS lecteur de carles ma- 
gnetiques pour HP 41C parfait 
etat, peu servi : 1000 F. Olivier 
SACYTel:944 16 31. 



DRAGON 

VENDS DRAGON 32 Peritel + 
cables + nombreux program- 
mes (Forth. Donkey, etc..) (Va- 
leur + 3000 F.) + manuel + 
housse: 2500 F. S. LLORENTE 
13 rue de Montchauvet 78200 
MANTES LA VILLE Tel: (9) 092 
75 64. 

VENDS DRAGON 32 + tele N/B 
+ naettes de jeu + connection 
TV Peritel Secam / prise an- 
te nne + log i dels: cartouche 
ROM HI-RES permetlant le 
pixage lextes / graph ismes, 
creation de sprites etc... + 1 
cartouche ROM -+- 3 jeux sur K7 
dont Moon Patrol. Prix 3000 ou 
2700 F. sans lele. Tel: (32) 40 
21 37 (apres 18H). 

VENDS DRAGON 32 + TV N/B 
portable: 3500 F. F. TELLIER 7 
rue Foch 62164 AMBLETEUSE. 

VENDS DRAGON 32 + peritel 
+ UHF + manettes + cartou- 
che: 2500 F. VENDS 120 logi- 
ciels 50 F. piece ou VENDS 
DRAGON + 120 logiciels pour 
4000 F. Marco CUCCHI 33 rue 
Aubepine 94320 THIAIS. 

VENDS DRAGON 32 + Peritel 
+ 3 livres: 2500 F. Magneto 
Philips: 350 F. F. CHAN PIU 
111 avenue B. Buyer 69005 
LYON Tel: 636 12 43. 

HP 41 

VENDS HP 71 B : 4000 F. J.M. 
KERIBIN 5 place Armand Carrel 
7501 9 PARIS Tel: 208 99 21 . 



VENDS HP 41 CV + lecteur de 
cartes + module X function + 
module HPO IL + module Math 
+ accus. + Chargeur + 200 
carles + docs: 5800 F. Ste- 
pfiane BARTIAL Tel: (86) 66 40 
77. 



VENDS HECTOR 2 HR + ma- 
nette de jeu + K7 basic -f nom- 
breux programmes et K7 + 7 
livres Basic (valeur 6000 F.) 
Vendu 4000 F. Dominique ME- 
RESSE 14 rue du Rivage - Nl- 
VELLE 59230 par ST AMAND 
LES EAUX Tel: (27) 48 71 84 
(apres 18H). 

MPFII 

VENDS MPFII 64K compatible 
Apple + cable antenne et Peri- 
tel. Docu mentations et program- 
mes : 1500 F. Alain GUESDAN 
Tel: 300 64 45 (lesoir). 

VENDS MPF II, 64 RAM Basic 
compatible APPLE + ecran + 
programmes + cables + ma- 
nuels: 2800 F. Stephane 
HENRY Tel: (3) 991 20 33. 

VENDS MPF II 64K + moniteur 
Zenith Vert + joystick e) K7 jeux 
+ docs (valeurs 4500 F.) Vendu 
2500 F. Thierry LUSTRENANT 
9 rue de Saint Malo 51000 
CHALONS SUR MARNE Tel: 
(26) 21 01 52 (apres 17 H). 

VENDS MPF II Peritel Moniteur 
SECAM + lecteur et Interface 
disk. + inter. Mu"i Imprimante + 
programmes + cables + notices 
+ Irvres. Le tout 5200 F, Andre 
LE GRAND 1 rue Claude BER- 
NARD 45100 ORLEANS Tel: 
(38) 63 56 50. 

VENDS MPF II Secam PERITEL 
+ UHF: 2300 F. Henri MOU- 
LINS 1 rue du Port ten Hugon 
A2 37000 TOURS Tel: (47) 66 



COMMODORE 

VENDS VIC 20 (pal/secam) + 
modulateur NB + cours d'auto- 
tormation au basic (avec 2 K7) + 
ext 1 6K + 8K + 3K + carte mere 
{pour ext. 32K) + SUPER EX- 
PANDER + PROGRAMMER'AID 
-t- HESMON + 6 livres + nom- 
breux programmes : 3500 F (va- 
leur 7000 francs). 
CHARTON Denis. 354 rue du 
Pere Hiiarion 54700 PONT-A- 
MOUSSON. 

VENDS VIC 20 + Extension VI- 
XEN (16K, 8K, 3K dans un meme 
boitier) -t- Magneto + K7 avec 
nbx programmes, le tout en tres 
bon etat. Cede au prix de 
15O0francs. Port gratuit sur 
Strasbourg et environs. 
SCHULLER Fabrice. 5 rue St- 
Bruno, 67200 STRASBOURG. 

VENDS VIC 20 + Magneto K7 
(1000 F) + Moniteur polychrome 
pal/secam (2500 F) + 5 cartou- 
ches de ieu (1000F) + K7 de 
gestion de budget (50 F) ou le 
tout pour 4254.25 F (etonnant, 
non?). 
Tel. (35) 83.08.28 apres 17 h. 

VENDS Commodore VIC 20 + 
Magneto cassettes + progs. 
Tel. (21)62.90.25. 

CHERCHE logiciel HORDAC 
pourCBM 64 ou tous renseigne- 
ments les concemant. 
J. WINIGER 134 bd Berthier 
75017 PARIS. 

ECHANGE Detecteur de me- 
taux + casque d'ecoute en bon 
etat contre CBM 64 ou ORIC ou 
SPECTRUM ou IMP. Z710. 
GODINHOLuis145ruedelaRe- 
publique 39400 MOREZ. 

VENDS CBM VIC 20 + Magneto 
cassette + auto-formation Ba- 
sic-)- nbrx jeux d'action-t- livres. 
25O0francs a debattre 
(35) 93.85.07 a partir de 19 h. 

VENDS VIC 20 + 16K + Magneto 
cassette + auto-formation + 2 
cartouches de jeux + joystick + 
moniteur vert. 2500francs. 
EricGUINARD12ruedu Champs 
le Golf 29210 MORLAIX. 



VENDS VIC 20 Secam + peritel 
+ magneto -I- nbrx programmes 
sur cassette + joystick. 
2700 francs. 

Super expender + Vixen + cart 
Radar rat race : 2800 francs. 
C. CUTULLIC 13 ruedu Morbihan 
44560 PAIMBGEUF. (40) 
27.52.50. 

VENDS CBM VIC 20 Juillet 84 + 
8K + Jostick + auto-formation + 
Starbattle. Sargon chess, alien, 
protector, scramble, cosmic + 
divers livres, valeur totale 
4800 francs Vendu 2000 francs 
Vincent EDMOND 2 rue du 
Genie 57558 MONTIGNY-LES- 
METZ. 750.40.49 apres 

I9heures. 

VENDS VIC 20 Decembre 83 + 
jeux: 1300francs. Vends ZAX- 
XON. CHOPLIFTER, FLIGHT 
PATH SIMULATOR, HIT STOP 
200 jeux: 30francs piece. 
Vends Video-pac Philips + 4 
cassettes : 1000 francs. 
-Eric MILLER Chemin de Nobile 
42153 RIORGES. (77) 71.72.30. 

VENDS VIC 20 Pal sous garantie 
+ peritel + datassette + super 
expender + auto-formation + 
Joystick + livres + jeux: 
2000 francs le tout. 
Stephane BEAUVAIS 075 4746. 

CHERCHE Possesseur de COM 
64 pour echanger ou acheter 
Programmes de Jeux ou Utilitai- 
res. David LEFEU 1 route de St 
Romain 76170 LILLEBONNE 
Tel:(35) 38 08 25 

VENDS VIC 20 + magneto + 
joystick / autoformation Basic + 
extension 8Ko + 1 livre Pro- 
gramme + K7 de jeux etc... 
3000 F. D. ROCCIO 149 rue D. 
Casanova 93300 AUBERVIL- 
LERS. Tel: 352 70 49. 



TEXAS 

ACHETE pour Tl 99/4A module 
basic etendu. Tel: 854 91 41. 

ACHETE pour Tl 99/4A module 
adventure 200 F. Monsieur 
GAULUPEAU Tel: 257 89 15 (le 
soir). 



VENDS pour TI-99 mini-memory 
+ livre "1'assembleur avec la 
mini-memoire" : 4000 francs 
beiges. Extended Basic + livre 
d'emploi: 3000 FB. Jeu beige 
d'echecs en francais : 100OFB 
Module YATHZEE : 500 FB. 
David DUCANNE 12 rue Abesses 
5864 NIL-ST-VINCENT Belgi- 
que. Tel. 010/65.46.28 

VENDS TI-99 4A Peritel + inter- 
face Secam + magneto + cor- 
don-*- Parsec+ Munchman-f K7 
"Le Basic par soi-meme" + plus 
de 70 programmes K7 + nom- 
breux listings + livre "102 Pro- 
grammes pour Tl". Valeur tarit 
Nov. 84 : 2700 francs. Prix : 
2000 francs le tout. MABILLOT 
Ludovic (7)224.83.74. 

VENDS TI-99 tres bon etat + ali- 
mentation + peritel + magneto 
+ rallonges + jack + manuel + 
manettes de jeu + Munch Man + 
100 Programmes + "Boite a outil 
du Tl" + nombreuses revues; 
Prix t9l0francs a debattre 
(1650 francs minimum). (NDC: 
Et le maximum ! C'est pas indi- 
que I), En cadeau (NDC : Tout de 
meme I Pour le meme prix ? Al- 
lez done savoir...) ; jeu video Ha- 
nimex, manettes incorporees + 
Cartouches 10 jeux + cartouche 
"Course", branchement loutes 
teles. Valeur 490 francs: gratuit 
a tout acheteur. 
Frederic, tel. (20) 57.20.10. 

VENDS URGENT TI-99 4A + Ba- 
sic etendu + manettes + Tl IN- 
VADERS + K7 + magneto K7 + 
cordon + nombreuses doc: le 
tout 18O0francs. Tel 

(80)66.80.29 lesoir. 

RECHERCHE pourTI-99 module 
extended Basic + manuel, si 
poss. en Belgique, faire offre a 
Th. CRESPEIGNE 14 rue Petrias 
6290 NALINNES Belgique. 

ECHANGERAIS Module Othello 
neuf contre autre module egafe- 
ment neuf. Serais interesse par 
le module Extended Basic avec 
manuel frangais. Faire proposi- 
tions a Olivier AMIAUD 1 rue Gu- 
tenberg 85600 MONTAIGU. Tel 
(51)94.04.83 le jour et 
(51) 94.13.79 lesoir. 



ZX81 

VENDS ZX8! (juillet 84) + ali- 
mentation + manuel + cordons 
+ 16K + livres + nombreux pro- 
grammes + 2 cassettes (cobalt, 
rex) pour 780 F. 

Hubert THUIZAT. route de Mou- 
lins, 58390 DORNES. Tel. 
(86) 50.63.85 (apres17h). 

VENDS ZX81 (01/83) + 16K (me- 
mopack) + K7 tyrannosaure rex 
+ livre "50 programmes pour 
ZX81" + livre et K7 n c 1 "ZX81 a la 
conquete des jeux" 700 F. 
F. SEVAUX. 112 rue Houdan 
92330 SCEAUX. Tel. 

(1)350.77.61 

Votre moniteur couleur est en 
panne ou absent alors que la TV 
couleur familiale n'est pas dis- 
ponible. Achetez un modulateur 
UHF NB entree peritel. Sortie an- 
tenne compatible tous micros 
sauf Oric. 140 francs Franco. 
Tel. (61)01.90.14. 

VENDS ZX81 + 16K + clavier 
ABS + cassettes TRI + budget 
familial + fichiers+ 2 jeux + 2 li- 
vres de jeu -f manuel + magne- 
to. Le tout pret a fonctionner. 
Valeur 2200 F Juin 84. Vendu 
1700 francs. 

Tel. (94)57.72.84. M. CHEVA- 
LIER HYERES. 



DIVERS 

VENDS LASER 200 : 750 F. + 
3 K7 de jeux + en cadeu un 
livre et une cassette de demons- 
tration (jouez au LASER 200) 
(Valeur 1570 F.) Vendu 1200 F. 
Gerald BIELDERMAN 2 rue des 
Sequoias 95840 VILLIERS 
ADAM Tel: (3) 469 07 40, 

VENDS ALICE + extension 16 
Ko (mai 84) sous garantie : 
1500 F. + manuels et nombreux 
programmes + magneto: 600 F. 
Emmanuel PICARD 21 rue de la 
croix de Romont 88390 DAR- 
NIEULLES Tel: (29) 34 22 97. 

VENDS SEIKOSHA GP 100 A 
avec branchement pour ORIC1.: 
2000 F. Andre DECLOITRE Tel: 
797 50 29 (le soir). 




DEUXLIGNEURS: LES FAINEANTS FAINEANTENT ENFIN (OUF) ! 



Y'a pas ! Tant que Ton ne vous prend pas par les sentiments, 
vous ne reagissez pas un poil. Apres one premiere semaine 
de (lemme prolonde vous avez, pour la seconde semaine, de- 
cide de sortir un bref instant de voire lorpeur. 
Bonjour les huit tonnes et demie de lettres que nous avons 
recu (dans les dents) cette semaine. Et tout ca rien que pour 
le concoufs du plus llemmard ? Bravo ! Belle jeunesse ! Mais 
c'est celle que nous aimons, alors allez-y: nous ne testons 
vos trouvailles que vingt-deux heures par jour ! 
Resultat des courses pour cet episode, pour pouvoir recom- 
penser les meilleurs cancres chaque semaine, nous oftrons 
(en plus des deux softs au premier) des lots de consolation a 
cinq autres auteurs. 

ET VOICI LES RESULTATS 



Comme nous aimons le suce-panse. nous allons c 

par les ace es sits. 

Philippe DURAND est un accroc de la tele au platond pour la 

regarder de son lit en compagnie de son Oric et de son 

Atmos. II nous propose son Looping pour la plus grande jote 

des esprits tordus et autres amateurs de creme renversee. 

listing ORIC 1 et ATMOS 

1 F0RX-33T0126=PRINTCHR«<K>; 'NEXT'PRI 
NT FOR>:=46344TO4?088STEP8 

2 FORV=0TO3 i S=PEEK'; X+V > < PQKEX+Y , PEEKX 
X+7-Y > : P0KEX+7-Y , 3 1 NEXTY , Y. 

Christophe GOENAGA pratique le Yoga avec son Tl et sans 
extension, c'est vous dire comme it est fort. Son calendrier 
perpetuel doit elre modifie chaque annee en effectuant une 
rotation de la chaine des jours ligne 2 
Perpetuelisez avec lui. 
listing TEXAS 

1 INPUT "SI VDUS VQULEZ SAVOIR QUEL JOUR 
DE LA SEMAINE NOUS SQNMES ENTREZ LA DAT 

E SOUS FORME J J „ MM < 1 9DS) ":JJ,MM 

2 PRINT SEE4("MARMERJEUVENSAMDIMLUN", 1+3 
*<VAL(SEG*(" 003 12331 3031303131303130", MM 
,2> >+JJ-l-7*INT< IVAL<SEG*("00312B3130313 
03131303130". MM, 2) )+JJ-l) /7) ) ,3) 

Fredo GIACHETTI n'aime pas du tout, mais alors pas du tout, 
ce qui est simple et evident. Du coup, il vous a concocte de 
quoi occuper la soiree du reveillon pour toute la tamille. 

listing THOMSON 

'■ CLS' FnRC=9TG328STEP8:FDRL=0TQ288STEF4: 

BGJ^.C.L '-<C+8*RND.L + 3*RN['>.e:NEHTL:NEKTC 
:B05Tl IS. 10 '-''38. 15 V " : BOX < 88* 80>-<£4S. 
128>.8:CuL0Rl:L0CATE12.1l:PRIMT"TftS DE F 
ftI«EANTS B :L0CftTE12.13!PRINT"DEUX CARRES 
SC^T ' :L0ChTE1 1.14: PRINT" IDENTIGUESJLESQtj 
ELS? H 

2 FORI = 0TQ5:PLhY"«1T1O3L1£DO#PE#DO#RE#[>O 
*RE# i 1I#Fft#S0#LH#PPT3Q£L£4RE#MI#ni#' i :NEXT 
: LOCATES. £4, 3 



Philippe CALLEC possede un don tres certain de bourrage de 
crane. Vous devez sans aucun doute passer a la casserole 
de Philippe car vous pourrez profiler de sa creativite certaine 
dans le domaine du comique de repetition. 

listing Commodore 

Q PRIHT"^W««'-.PEEK'162-'+PEEKC162:'*200+l, 

"RErl*TfJUT#EST*RELFITIF#!**":pPINT"RUH" 
61WR PRINT"_S" -PrjKE63t,13 : P0KE632.13 P0KE196.2 
Jean-Claude DEVAL n'a pas eu froid aux yeux: il a du rester 
debout au moins cinq fois plus longtemps que les autres: it 
nous a envoye cinq "deulignes". Celui qu'if preferait n'est pas 
notre chouchou. Nous en avons choisi un autre. 

listing Apple 



Grand vainqueur de la semaine, Gerard SEBBAH reforme 
I'lNPUT de voire Apple pour en (aire une instruction d'enfer. 
Votre Apple digerera dorenavant les ";", "," et el autres ":" 
grace a son programme. 

Rentrez le listing 1. Faites un RUN 1, Vous pouvez mainte- 
nant effacer la ligne t . Par contre ne touchez jamais a la ligne 
sous peine de deboires divers. Rentrez le listing 2, il 
contienl un exemple d'ulitisation du nouvel INPUT qui s'ap- 
pellera dorenavant CALL 2080 I 
listings Apple 1 et 2 



'. QUELQUE CHOSE." 



0,2.145,105,9* 

J'oubliais ! Le programme a ete baptise PCQMTM (plus court 
que moi tu meurs) par son auteur. 

Enfin la redaction decerne un accessit EXCEPTIONNEL a 
Franck-Olivier LUCEA qui a deride lout le monde en ces 
temps de crise grace a son envoi. 

lettre de F-0 Lucea 



' ten ur ffct/AHHc rw ttu. 

ftttSJCJ*: De *£ flKLES 
l££«UA ' 



H^, 



MC SEfcT * fi€W * ; 

to Gcr( Ao 



HIPPOJOYST 



C'est Japonais, c'est un des meilleurs et des 
plus costauds que Von connait: trots boutons 
de tir, une bonne prise en mains et quatre ven- 
touses pour le coller definitivement sur la 
table de la salle a manger (Super pratique pour 
les repas !). Prise standard pour Amstrad, 
Atari, Commodore 64, MSX, Vic 20. Compatible 
avec les interfaces d'Oric et de Spectrum. 
Pour Apple, Thomson et Texas, Tintin: ga ne 
marche pas ou alors il faudra bidouiller ! 
Ah, au fait, c'est 100 balles, port compris. 
C'est bon, c'est pas trop cher ? Envoyez vos 
sous apres avoir rempli le bon de commande 
ci'joint. Le ministre du commerce exterieur du 
Japon vous remercie bien bas. 




ft ft ft ft ft ft 



ft ft ft ft 



ft ft ft ft 
Bon de commande a decouper et a renvoyer a 
SHIFT EDITIONS, 27 rue du General Foy 75008 
PARIS. 

Nom 

Prenom 



Signature: 
cheque joint . 



P.U 
qM 

Total : 



DEUX SUPER-CONCOURS PERMANENTS 

20 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE pour 2 
personnes en CALIFORNIE au meilleur logiciel du TRIMESTRE. 



Un concours de plus! salres a I'utiiisation de ce pro- 

Rien de bien original dons gramme. 

cette formule, pourtant nous Bonne chancel 

essayons de fatre quelque R§g| emen i; 

chose de different: nous orga- ART.1: HEBDOGICIEL organise 

nisons un concours perma- ^ faoon me rtsuelle et trimes- - 

nent tous les mots et tous les lrie || e un concours dote de prix tre 1 rue des Halles 75001 
trimestres! Et avec des prix re compensant le meilleur logiciel PARIS. 
dignes des programmes que du f^g et du thmestre. 
vous allez nous envoyer! ART.2: Ce concours est ouvert 
De plus, ce seront les lecteurs a t0U | auteur de logiciel quelque 
eux-memes qui voteront pour ^ , e ma teriel sur tequel il est 
ieurs programmes preferes Valise. L'envoi dun logiciel en 
sur la grille recapitulative K7 0(J disquette accompagne 
mensuelle. dun bon de participation de- 
Pas de jury, pas de decision ^p^ d ans HEBDOGICIEL 
arbitrage, HEBDOGICIEL n'in- constitue lacte de candidature. 
tervenant que dans le cholx art.3: u redaction dHEBDO- 
des programmes qui devront qiciel se reserve le droit de 
etre ORIGINAUX et FRAN- geiectjonner sur la base de la 
CAIS. SI votre programme quaNte e , de | riginaiile les logi- 
n'est pas tout a fait au point, cie | S qui sont pu blies dans le 
un de nos specialistes vous j 0urrta i. 

dira comment I'ameltorer pour ART 4: ' Qg sont | es ieci e urs qui. 

pouvoir nous le proposer a par | eur ^te, determined les 

nouveau. meilleurs togiciels mensuels et 

Pour particlper, il vous sufflt trjmestrieis, 

de nous envoyer vos pro- ART.5: Le prix alloue pour le 

grammes accompagnes du concours mensuel sera remis au 

bon de participation ainsi que p | US tard un mois apres la do- 

toutes les explications neces- t ure du concours mensuel. 



ART. 6: Le prix alloue pour le 
concours Irimestriel sera jemis 
au plus tard un mois apres la 
cloture du concours trimestriel. 
ART.7: Le present reglement a 
' depose chez Mailre Jauna- 



ART.8: HEBDOGICIEL se re- 
serve le droit d'interrompre a 
tout moment le present 
concours en avisant les lecteurs 
un mois avant. 

ART. 9: La participation au 
concours entrafne I 'acceptation 
par les concurrents du present 
reglement. 

HEBDOGICIEL: 27 rue du Gal 
Foy 75008 PARIS. 

Sera declare gagnant le pro- 
gramme qui aura obtenu le 
plus tort pourcentage de vote 
par rapport a la totality des 
programmes recus pour un 
meme ordinateur. 
Ainsi, pas de favoritlsme pour 
les ordinateurs plus puissants 
ou ties diffuses. 



BON DE PARTICIPATION 



Prenom 

Age : Profession 

Adresse 

N' telephone 

Nom du programme 

Nom du materiel utilise 

declare etre lauteurdece programme qui n est ni uneimitationniune 
copie dun programme existant Ce programme reste ma propnete et 
j autorise HEBDOGICIEL a le publier La remuneralion pour les pages 
publiees sera de 1000 francs par page (un programme n occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 



Le programme doil etre expedie sur support magnetique (cassette ou 
disquette) accompagne dun descnplil delaille du materiel utilise, 
d'une notice d utilisation du programme Les supports des program- 
mes publies sont cons erves, n'oubliez done pas d en faire unecopie. 




BIDOUILLE GRENOUILLE 



L'Auguste de la semaine der- 
niere pourra enfin retro uver le 
soleil, grace a Eric Huymh. 
Celui-ci nous envoie en effet la 
solution de Waydor Ceux qui 
veulent continuer a jouer. bou- 
chez-vous les yeux ! 
-Alter a la forge et prendre les 
cles et la lampe. 
-Aller a I'eglrse. La, prendre la 
pierre, ce qui declenche I'ou- 
verture d'un passage secret. 
-Aller dans le passage secret 
et allumer la lampe. Ne pas 
toucher aux ossements ! 
-Aller jusqu'a la grille, louvrir. 
continuer. 

-Prendre le bateau, continuer. 
-Prendre la piece, et revenir 
sur ses pas (important). 
Le plus dur est lait, ressortez 
comme vous etes entre. 
-Aller a I atelier avec tout ce 
que vous transportez (ce 
qu'Eric appelle le "bastrin- 
gue"). 

•Ouvrir le coffre el y jeter lout 
ceque Ton a. 

-Prendre du bois, des clous et 
le marteau. 

-Fabriquer des rames. jeter le 
marteau. 

-Vous devez avoir les rames et 
le bateau. Vous pouvez ^main- 
tenant enlrer dans le chateau. 
Un conseil: prenez la piece au 
passage, car tout le monde est 
corruptible. 

Eric ne s'arrete pas la et nous 
pose une question. Les pos- 
sesseurs de CBM 64 ne sont- 
ils pas des a vantages dans le 
concours deuligneurs, puisque 
leur machine n'accepte que 
100 caracteres par ligne logi- 
que, alors que I'Appte en ac- 
cepte 255? Non, et pour plu- 
sieurs raisons. D'abord. sur le 
CBM 64, on a acces aux "tou- 
ches shiftees" qui permettenl 
de coder un mot basic en 2 ca- 
racteres, pas sur TApple. En- 
suite, nous ne jugeons pas 
dans labsolu mais par rapport 
a la machine. De plus, la "phi- 
losophie" du concours consiste 
a trouver des algorithmes ort- 



ginaux. II est bien evident 
qu'un dessin peut etre beau- 
coup plus beau si Ton ajoute 
de la precision, mais les des- 
sins, cesl limite... 
Trouve-nous un algorithme de 
conversion decimal-hexadeci- 
mal, c'est plus interessant, et 
ca tieni aisement en deux 
lignes de 60 caracteres. Ou 
fais-nous rire. nous avons regu 
des Uniigneurs (!) qui y ont 




Derniere chose pour Eric, mais 
qui pourrait rentrer dans la ru- 
brique Minitel. puisque plu- 
sieurs d'entre vous ont utilise 
ce biais pour nous poser la 
question: si vous etes nouvel 
abonne, votre numero se 
trpuve sur la bande d'expedi- 
tion du journal. 

Manic Miner: Patrick Martin 
vous donne un true efficace 
pour avoir un nombre de vies 
illimite sur la version Spec- 
trum, au debut du chargement, 
lorsque I'ecran est devenu 
noir, "breakez"-le. puis ajoutez 
POKE 35136,0 au debut de la 
ligne 30. C'est tout ? C'est 
tout, et ga marche 



La version Commodore pro- 
mise la semaine derniere at- 
tendra encore une semaine: 
avec Ieurs doigts palmes, les 
grenouilles ont du mal a veri- 
fier le programme. 

Petit explicatif sur le dispositil 
anti-cafe pour Almos d'il y a 
deux numeros: dans le listing 
N° 2, rajoutez une ligne 200: 
CALL # 65. Le mode d'emploi 
semble vous avoir pose quel- 
que s pro bl ernes; tapez-le et 
sauvegardez-le avant de faire 
RUN. Lorsque vous voulez re- 
copier un programme, chargez 
le programme N° 2 et faites 
RUN. Puis tapez "L" pour lire 
le programme original, et "S" 
pour le sauvegarder sur une 
de vos cassettes. La version 
Ofic-1 arrive bientdt. 

Allez, il est tard, c'est I'heure 
de se mettre sur Minitel. Par le 

614 91 66. tapez 169 001 672 
P suivi de IMA. Vous aurez 
droit a une succession de des- 
sins animes superbes offerls 
par Imaginatic. Une message- 
rie sur le 613 91 55: tapez 
DXPA1. Vous entrerez dans le 
serveur, il ne vous restera plus 
qua taper le mot de passe 
"OVNIAA" pour y acceder. 
SM. serveur fantome dont 
nous vous avons deja parle, 
retail ses premiers pas. II s'ob- 
tient en composant SM par le 

615 91 77. II comporte une 
messagerie en direct dont pas 
mal de serveurs ferarent bien 
de s'inspirer: vous choisissez 
(aleatoiremenl) un groups de 
cinq personnes, et les repli- 
ques s'affichent au fur et a 
mesure que vous les tapez. en 
temps reel. C'est pour 1'inslant 
la meilleure (avec STEL) des 
mess age ries que nous avons 
trouve. 

Vous pouvez toujours nous 
ecrire sur Armen (615 91 77), 
boite Hebdogiciel. 

Croa? 



LE LOGICIEL DE LA 
SEMAINE 



CONAN de DATASOFT pour COMMODORE 64, 
ATARI, APPLE lie et c , IBM PC 



L'aneanlJssemen! total el deti- 
nitif de ces deux mecreants de 
Miche el Micha ne pouvait 
passer que par I'ulilisation de 
leurs propres methodes. c'est 
a dire lincommunicabilile, la 
disinformation et loccullisme. 
Apres les avoir attaches, nous 
les avons done forces a lire a 
haute et intelligible voix I'inte- 
gralite des annuaires des 
Postes et Telecommunica- 
tions, le dernier numero du 
Chasseur Frangais et les oeu- 
vres completes d'Alan Kar- 
deck. 

Agonisants apres ce traite- 
ment. la lecture repetee du 
Herisson et I'ecoute des enre- 
gistrements de Bobby La- 
pointe les onl enfin mis hors 
d'etat de nuire. A moins qu'ils 
ne se procurent quelque phil- 
tre magique. magique comme 
le logiciel qu'ils ont ose salir 
par leurs bavardages steriles 
de la semaine derniere: Conan 
le Barb a re. 

C'est, en eftet, avec respect 
qu'il taudra desormais parler 
de ce logiciel qui atteint enfin 
le sommet sur lesquel Lode 
Runner semblait definitive- 
ment installe. Tout semble 
parfait dans ce logiciel: le sce- 
nario, les graphismes, la rapi- 
dite, I'interet du jeu et la diver- 
site des tableaux. Un logiciel 
devastateur, comme le heros 
dont il s'inspire! 
I dent if ie a Conan te barbare. 
vous pourrez vous deplacer 
dans des tableaux aussi varies 
que somptueux, Arme de voire 
celebre glaive, il vous faudra 
vous defendre contre chauve- 
souris, scorpions et nombre de 
fauves hostiles. 



Escalader les grands arbres 
dune foret magique, voler sur 
des bulles de lave incandes- 
cente. ramper dans des sou- 
terrains ensorcelles ou utiliser 
les trappes de la quatrieme di- 
mension: tout est possible a 
Conan' (e barbare qui peut 
marcher, courir. monter, des- 
cendre et lancer sa hache a 
une vitesse foudroyante. la Vi- 
tesse du langage machine' 
Et. comme si le jeu d'arcade 
proprement dit n'etait pas 



fisament efficace et muscle. 
I'aventure, la reflexion et la 
strategie sont presents , ajou- 
tanl encore a I'interet et a la 
veritable passion qui va vous 
emporter: arriver au bout de la 
quete du heros barbaresque el 
solitaire que vous etes de- 



Hubert Bannisseur de Sort 

et 

Maxence de la Venture 





LES AVENTURES 
DU CONCOURS 
MICHE ET MICH A 



menu 



125. 0. 63, 37. 34, 33. 37. 63 
57, 112, 60. 49, 72, 34, 53. 52, 
49, 51, 36, 57, 63, 62, 112,63, 

34, 55, 49. 62. 57, 35, 53, 34 
49, 57, 36. 125, 53. 60, 60,53, 
112. 52. 53. 35, 112, 51. 63 

62. 51, 63, 37. 34. 35. 112, 53, 
36. 72, 32. 49. 35, 112.62, 63, 
37,35, 111. 93. 125, 0, 49, 34, 
51, 53. 112. 33. 37. 53. 112 
60,49, 112,34. 53,52,49, 51, 
36, 57,63, 62, 112, 53,45, 46, 
112, 52, 53, 61, 49, 55, 63, 
124, 112. 51. 119, 53, 35, 36 
112, 53, 38.57.52, 53, 62, 36, 

126. 93, 125, 20. 53, 61, 49 
55. 63. 124, 112, 51. 79, 53 

35, 36, 112, 58, 63, 37, 53, 34, 
112. 60, 49. 112, 51. 49, 34 

36, 53, 112, 52. 37, 112, 32. 

63, 32, 37, 60, 49, 57, 34, 53. 

111, 93, 125, 19, 119, 53, 35, 
36, 112, 35.37, 34, 36, 63, 37, 
36. 112. 32. 49, 35. 112. 49. 
60, 60, 53. 34. 112, 49. 37, 

112. 50.57,35, 36. 34. 63. 36, 
124. 112. 53, 36. 112. 36, 34, 
49, 36, 49, 57, 60. 60, 53. 34, 
126. 112, 0, 49, 35, 112, 32 
63. 37, 34, 112,62, 63, 37,35, 
124. 112. 33, 37, 63. 57, 126, 
93, 125. 4. 119. 49, 35, 112, 

34. 49, 57, 35, 63. 62. 126, 
112. 17. 60, 63, 34. 35, 112, 
63, 62. 112, 38. 49, 112. 54, 
49.57, 34, 53, 112, 50, 63,35. 

35, 53, 34, 112, 60, 53, 35, 
112,60. 53, 51. 36, 53,37, 34, 
35, 126, 93, 125. 4, 119. 49. 



12, 34, 49, 57, 35, 63. 62, 
112. 31, 62, 112. 38, 49, 
112. 60, 53. 35. 112, 54, 49, 

57, 34. 53, 112, 50. 63. 35, 35, 
53, 34. 126. 112, 20. 37, 34, 
126, 93, 125. 19, 53. 37. 40, 
112, 33. 37, 57, 112, 63, 62, 
36. 112. 60, 37, 112, 58. 37, 

35, 33. 37, 53. 112, 60, 49, 
112. 63, 62, 36, 112, 52, 53. 

58. 49. 112, 36. 34, 63, 37, 38, 
53. 112, 52. 53. 112, 33, 37. 
63, 57, 112, 33. 37, 119, 63, 
62, 112, 51, 49, 37, 35. 53, 
126, 93. 125, 19. 119. 53. 35, 

36, 112, 35, 37. 34. 126. 112, 
19. 119, 53, 35, 36, 112, 32. 
49, 35, 112.52.34, 63. 60. 53, 
112. 52, 53, 112. 60, 53, 37, 
34. 112, 52, 57, 34, 53, 112, 

33. 37. 53. 112, 60. 53. 112, 
32, 34. 53.61. 57, 53, 34, 112, 
49. 112.36,34.63,37,38.53. 

34, 112. 60. 53, 112, 51. 63. 

52. 53, 112, 53, 36, 112. 49, 
112, 62, 63, 37, 35, 112, 53. 
62.38.63, 41, 53. 34, 112,51, 

53. 112, 36, 53, 40, 36, 53, 
112, 49. 112, 55, 49, 55, 62. 
53,61, 53. 62, 36. 112, 52,53. 
112, 35, 57, 40. 112, 61, 63, 
57, 35, 126, 93, 125. 17, 60, 
60. 53, 42, 124, 112, 38. 57, 
53, 62, 35, 124, 112, 60. 49, 
57, 35. 35, 63, 62. 35. 125. 60. 
53. 35, 112, 32. 60.49, 62, 51. 
56,53, 34, 126. 93, 29, 57, 51, 
56, 53. 112. 53, 36. 112. 29, 
57.51, 56, 49 
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Mkno-ordinateur Tl 99/4 A Pal 

Mkf D-or dinat eur Tl 99/4 Peri t el 
Mlao-ordlnaieur TT99/4 Secant 
ACCESSOIRES Tl 99/4 



MagnSlo-tassetln compaDole T.I Lansay 
aver compteur +■ cable magneto romprS 
rmprmante seikoscna GP 50A 
Imprimante Seikoscha GP SO0 
EPSON RX 80 friction/traction 
Machine a ecrirc Brother EP 44 
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PROGRAMMATION 

Enended basic Europe Manuel anglais 

Emended Basic Europe Manuel rranc,aa 

Memoire extension 32 K eiterieure 

BaWEfLKSoi-meme 

Aide a ia programmatfon 
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MODULES EDUCATION 



□ Mora nu*plcit>o 
O MJoplication I 



NOUVEAUX LOGrCJELS TEXAS 



.",-: ■:-. 
?Su.or. 
ZSOOO 
Mfcrosugean 250,00 I D I Moorcsvweper 

PROGRAMMES TEXAS EDUCATION : 
fritrod. au n 99/4 1 1 1 et (2| • 
les techniques de programmes de Jem [ ( | et (2 J • 
Complements et multiples 

HEBDOGJCIELS SOFTWARE : 

TIN" I Basic simple K7 : \2jeia% 
Tl N° 2 Basic etendu : Ujeux 



306X0 




M.CC 




mm 


L 


147X0 


r 






147.00 


u 


147X0 


n 




. 1 


206X0 




206X0 


Ll 


250X0 


n 


250X0 




350 00 




250X0 




250X0 


u 



LOT N" I INDISPENSABLE 

Le Modi* BASIC ETENDU manuel H 

K7 BASIC PAR SOI-MEME 

K7 TECHNIQUE DES PROGRAMMES DE JEUX N° I 

K7 TECHNIQUE OE5 PROGRAMMES DE JEUX N 

L'ensetnbte 



LOT N° 2 EXTENSION COMPLETE 

Le Module BASIC ETENDU manuel en franrais 

K7 BASIC PAR SOI-MEME 

EXTENSION MEMOIRS 32 K EXT 

K7 TECHNIQUE DES PROGRAMMES DE JEUX N° I 

K7 TECHNIQUE DES PROGRAMMES DE JEUX N= 2 

2.240.00F. 



LOT W 3 ETUDE DU LOGO 



■ ■ ■ 

iindaii— 

CHANGE DE TOUCHES 



LOT N° 4 TRATTEMENT OE TEXTE 

Le Module BASIC ETENDU manuel en francais 
EXTENSION MEMOIRE 32 K EXT 
INTERFACE PARALLELE pour Tl 99 
IMPRIMANTE EPSON RX 80 FRICTION et TRACTION 
6.S6O.00F. 



LOTWS JEUX 

Le Module BASIC ETENDU manuel en franrais 

MODULE JEUX USA. 

SUPER DEMON ATTAQUE-OTHEUO-HOOPER 

BURGERTI ME-MUCHMAN 

K7 INTRODUCTION AUX JEUX N° 1 ET N° 2 

Lensemble 1.500,00 F. 




UN COFFRET CAOEAU : 

I mlcro-ordinateur ZX 81 

1 clavier ABS 

I cours de programma t ion langage basic 

Z K7 avec 10 programmes otejeux 

PROMOTION : LE COFFRET : 650 F a 
LE COFFRET + MEMOIRE 16 K : 930 F D 



ii, jeu a 



Tl N° 4 Basic etendu : Casino, 
mission perilltuse. 
• I unite I 



Jl. :juri. 



7S.O0 
75X0 
95X0 
95.00 


n 
o 




1 50X0 
150X0 


D 

a 




120X0 


u 





LE LOT OE NOEL 

MODULES FUNWARE POUR Tl 99/4 

• RAflSn RAIL : LE LAPIN MAUN 

• DRfVING DEMON : JEUX DE VCMTURES 

• ST-NICK : LE PERE NOEL ARRIVE 

• AMBULANCE -AVEZ-VOUS CONDUIT 
UNE AMBULANCE 



ZX SPECTRUM + : 

LE CLAVIER DUN MICRO-ORDINATEUR 



ZX SPRECTRUM * 48 K Pal 

Prf>:2230FTTCD 

ZX SPECTRUM - 48 K Per itel 

PrB : 2S90 F TTC D 



BON DE COMMANDE 
TARIFS DECEMBRE 1984 



ProOuiB doponiwrs Oam la Smite de nos slacks en 

Participation aut trait de port « d'expetSOon en re- 
commande pour les logjciiefi.- + 30 F. 

lAREQEACALCUL: 

65/67. Od Sainr-Germao. 75005 PARIS 

Tel : 3256888 - Telex: E7RAV 220064RI 303 RAC 



DEMANDEZ LE PROGRAMME 

Achetez vos logiciels les yeux fermes, nous les avons testes pour vous ! 

Nous avons selectionne pour vous les meilleurs logiciels actuellement disponibles en France. Nous ne 
pretendonspasquece«e/isteestcomp/etee(definif/Veeti/este«denlquenousyra;outeronsregu/ie- 
rement des programmes. Pourtant, vous chercherez en vain certa/ns programmes qui,ouissent d une 
bonne reputation et qui se vendent surtout grace a la publicite et aux consei/s des vendeurs qu/ne pen- 
vent pas connaitre tous les logiciels disponibles. 

Les prix sont nous I'esperons, les meilleurs du marche et les abonnes - anciens ou nouveaux - benefi- 
c/ent en plus d'une remise de fO %. Si vous etes nombreux a nous suivre dans cette experience nous 
pourrons rapidementarriverafairebaisser les tarifs des fournisseurs pour atteindrel ob/ectif que nous 

nous sommes fixe: ramener les prix a une plus juste valeur I ,„ rf ., n „v 

Les classements sont faits en fonction de I'interet du programme et ne tiennent pas compte des prix, 
c'est a vous dejuger de I'opportunite de la depense. N'oubliez quand meme pas que si le rapport quali- 
te/prix est mauvais, le logiciel ne peut figurer dans cette page I 



SOFT-PARADE 




SI vous etes ABONNE. 
dedtiisez VOWS-MEMES 
vos 10% de REMISE 




-nouveau- 



LE VOYAGEUR DU TEMPS 



REVENGE OF THE MUTANTS 



HOVER BOWER 



KILLER WATT 



FORT APOCALYPSE 



TENDftE POULET 




COMMODORE 64 



BON DE COMMANDE A DECOUPER OU RECOPIER: I 
SHIFT EDITIONS, 27, rue do G»l Foy 75008 PARIS' ■ 















LOGICIELS 


EMMatowa 


Pn, 




Mediant 
















TOTAl - - - 


::':;:, 








♦ 1500 




MONTANT a 


™*. 




_ 








dale de la co. 


toc"eVc^""Jn 


.-. 


ey* en «s 





TEXAS TI/99 



THOMSON 

Saul spec ifreal ion contram- ■ 

comcalibles M05. T07 avec extension 16 « el 107 70 




PUBUCITE 




?o'i la P ubhcit * dans Hebdogiciel, nous rentrons dans le rang? Vous rigolez ou 
quol? Les annonceurs que vous voyez la, id, dessous se sont engages a lake 5 % de 
remise aux abonnes de I'hebdo sur TOUT le magasin, y compris sur les ordinateurs les 
fourmtures et les ptriphfriques. C'est pas de la bonne publicity ca, Madame 1 ' 




grand choix de logic 
libiaine specialised 
nos PRIX "SERVICE COMPRIS" 






eco-informatique 

33 ov. Julten Panchol 66OOO PERPIGNAN r6i , (68) 564925 

perpignan 

> Un reseau de Professionnels (14 points de Vente). 
• Les meilleures marques. 

■ L etude de votre moyen de Financement. 
» Une programmation a la carte. 

► Un control de maintenance. 



Apple 



Olivetti 



VIDEO 107 INFORMATION 

♦ ♦ <> o <o> 

PLACE DES FETES 
75019 PARIS 

QL SINCLAIR DISPONIBLE 

COMMODORE, ORIC, AMSTRAD 

EXELVISION 

+ de 1000 logiciels toutes marques 
Tel. : 201.46.09 



ARVERNE 
INFORMATIQUE 



• Vente de micro-ordinateurs familiaux a 
part ir de 580 Francs dont SINCLAIR, AMS- 
TRAD, THOMSON, APPLE- 

. OFFRE SPECIALE DE NOEL : 5 % de remi- 
se pour toute commande passee avant le 
31 Decembre 84. 

ARVERNE INFORMATIQUE 

99 bis Avenue Max Dormoy 

63000 CLERMONT 

(73) 83.11. 10 



VIDEO TROC 

VENTE - ECHANGE - DEPOT DE 

TOUT MATERIEL VIDEO ET MICRO- 

INFORMATIQUE - LOCATION DE JEUX 

| NOS PRIX NEUFS ! \ 



COMMODORE 64 : 2690 F 
IMPRIMANTE CM : 1950 F 
MONITEUR COULEUR :2490 
ATARI 890 XL :2190F 
MSX CANON V 20 : 3649 F 



LECTtliR DISQUETTE : 2X90 F 
MONITELR EtRAN AMBRE : 950 F 
SINCLAIR SPECTRUM : 1750 F 
ORIC ATMOS : 1950 F 



OUVERT DU LUND1 All SAMEDI DE 10 H A 19 H 00 



> : gare de Lyon. Lcdnt Rollin 



/ «F / / c? 
GRAND CHOIX 


DE LOGICIELS 


PSSTB^^^Wm 


■9M ® MOTOflOU 

Tel 89 71 26 
Tel 73 21 67 
Tel 68 13 98 


NANTES 5 Rue Lekain 

87 Quai Fosse 

ANGERS 7 Rue Boisnet 



INFORMATIQUE 
2000 

le specialists de la micro- 
informatique familiale 

Nombreuses marques disponibles, 
Logiciels. livres, conseils. 

LE TRIANGLE - Niveau bas 
(67) 92.92.17. 34000 Montpellier 



VISMO 

Vente informatique service micro ordinateurs 

ORIC, SINCLAIR, AMSTRAD 

Moniteurs couleur et N/B. 

Tous peripheriques 

ASSEMBLEUR MONAMS 
Recommande par Hebdogiciel 

84, bd Beaumarchais 75011 PARIS 

12. bd de Reuilly 75012 PARIS 

338.60.00 



ABONNES, 

si vous avez un probleme avec une de 

ces boutiques, vous savez a qui vous 

adresser? Je ne vous fais pas de des- 

sin? 



J 



ANNONCEURS, 

vous avez envie de vous lancer dans 
I'aventure? Vous etes prets a consentir 
S % de remise sur toute votre boutique 
pour la voir envahie de programmeurs 
fous? Ecrivez-nous, nous vous ferons 
payer tres Cher le centimetre carre de 
publicite! 



BLANC BERNARD 

Informalique Bureautique Lyon 

AMSTRAD - SINCLAIR - ORIC 

- SHARP - THOMSON - SANYO 

- LEANORD - LOGYSTEM 

9, rue Salomon Remach 69007 LYON 
Tel. : (7) 872.25.48 (pres facultes] 

Assistance technique. Logiciel. Formation 



HERCET 
MICR0-INF0RMATIQUE 



41, esplanade Flechambault 
(26) 82.57. 98 5TO00 Reims 



ORIC - SINCLAIR - MEMOTECH 
MSX (sanyo, yeno, yamaha...) 

Librairie et nombreux logiciels. 



un SPECIALISTE, c'est PLUS SUR et.. 
... c'est toujours MOINS CHER ! 

micrOmetz 

1 I 

mjcro-informatique pour tous 



ordinateurs personnels & professionnels 



compatibles 
19. r. de la Fontaine 

57000 METZ 



Zenith - Toshiba 



I Republique *J 



«tC 



1* 



■Jl 
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la page pedagogique, 



la page pedago — 



LIMITE s'adresse a des eleves du second cycle (1ere et terminate) et propose des exercices de calculs de limites de fractions 
rationnelles dans les cas ou il y a, comme disent les matheux et G. GRANPIERRE, forme mdetermmee du type % ou oo/oo Vous 
avez dit technique ? 



L'utilisatton est simple: il suffit de repondre aux 
questions posees (1 pour une limite finie, 2 pour 
une limite infinie, puis introduction des numera- 
teurs et dehominateurs en cas de limite finie, du 
signe en cas de limite infinie. 
En cas de reponse fausse, I'ordinateur donne une 
solution: il factorise les polynomes, simplifie les 
quotients... et donne la reponse. 
Le programme comporte plusieurs niveaux de dif- 
ficulty (3 en tout). A un meme niveau, toutes les 
expressions F(x) sont de meme type... mais les 
apparences peuvent etres tres differentes ! On 
passe dun niveau au niveau superieur en repon- 
dant correctement a deux questions de suite... 
Mais, une question en comporte deux, lune si n' 
tend vers plus ou moins I'infini. En prenant Nl = 2 
ou Nl = 3 en ligne 100, on peut modifier le niveau 
de depart. En cas de tres mauvaise reponse, I'or- 
dinateur conseille de revoir le cours. En cas de 
tres bonne reponse {niveau 3 reussi) I'ordinateur 
conseille de passer a un autre exercice. 




Des stages sur "I'utilisation pedagogique d'un micro-or- 
dinateur de poche programmable en basic" sont organi- 
ses par les Etablissements Noblet, importateur de Casio 
Ces stages gratuits sont reserves aux enseignants. 

Janvier 

Janvier 

Janvier 

fevrier 

fevrier 

fevrier 

mars 

mars 

mars 

mars 



Limites de fonctions rationnelles sur TRS 80 











e REM POUR TRS-BB MODELS 1 OU 


tl 


8 REM G. GRBNDPIERRE 








20 DEFINT H-ZiCLEBR 500 








40 random 




















JO0 GOSUB 2000 : GOSUB 240B : GOSUB 2G0B 




150 ON NI GOSUB 3B00 ,3008 .3200 








I 7B GOSUB 2400 :G0SUB .:6B0 












-00 Cl_S i GOSUfc 4000 








1000 REM CHOI* DES COEFFICIENTS 




IB10 X-RND(71-4UF X=0 THEN 1010 





2200 : 

2210 : 



»<0>=-<X"'IF X(0 THEN HlSWfll 
»(0>=H1«I0> -STR*< -Xi->~ >-ifll*<l> 
NI=2 THEN Pi*l0)^l*(0)+CH»»(I 

Nl-3 THEN Bl»(l>-m»<l)+CHM(; 



2-4! CLS 

2420 PHINT327. " L I III 

2430 PRINTSTRING*i4 



2600 REM QUESTION POSEE 
2G10 PRINT3522, 



DE F 



XilGOTO 26E0 
2E30 5=2*RND(2>-3 
2640 IF SI0 THEN Q*="+INF" ELSE »• 

26EH PRINTaG4B. "CETTE LII 
2670 EC=E.90:GO5UB 4200 



ELLE : l.'FINJE 
," THEM HR1NTS64B. C 



1200 .1400 .1200 



9 IF DE-0 T 

9 GDSUB tee 
9 RETURN 



i 02<H, I)=0 

B NEXTI 

a RETURN 

1 REM RBCINE I 



I 600 HEM LE QUOTIENT S' BNNULE- 

1620 FOR 1=3 TO STEI 

1630 RETURN 

1600 REM COEFFICIENTS 



300B REM TEST REPDNSE > 



3BTB PR1NTS716. "NUMERBTFUR '": 

3040 EE=731:GOSUB 4200 = RN=VOL I R» > 

3050 PR1NT37S0. 'DENOMINBTEUR ?*1 

30G0 EC-795IGQSUB 4200 ; RD=VQLi R*l = IF RD=0 THE 

3070 IF HN*DEONU-RD THEN GOSUB 5000- i GO TO 31 

3BBB PRINT" CORRECT"; 

3090 FOR 1=1 TD 1800:NEXT 

3100 RETURN 

3200 REM TEST REPONSE X TEND VERS X0 (NIVERU 3 

3210 CH-VhL(R*> 

3220 IF CH-1 THEN GOSUB 5000 IGOTO 3320 

3230 PRINT371E. "HUEL SIONE ? u ! 

3J40 EC=731:0OSJB 4300 

3250 IF WO 1 '*" AND R*(>"-" THEN PHINT3730, CHt 

32G0 IF «»=■■*-• THEN S=l ELSE S*=-l 

3270 PRINT3780, "DE QUEL COTE ?": 



9 EC-7! 



3290 I 
3300 I 



3420 ON BGNiDI0)-D' 
3430 NU^IIF CH-2 T 






:S=S*X*B2IK, 
B-fll*fl2 



3450 PRINT3716. "NUHERATEUR ?" 1 
3460 EC-731IGOSUB 4200 : RN-VBLI H*> : IF 
3470 PRINT37B0. "DENOMINBTEUR ?"l 



THEN 3490 
CORRECT" liGOTG 3590 



3520 IF CH«1 THEN G 
3530 PRINT3716. "QUEL '. 
3540 E 



1=731! GOSUB 4300 



4150 RETURN 






4200 REM REPONSES HUMERI SUES 


















F M»>-"0" 


















^i 422B 








13 THEN RETURN 




42 7 3 
c-1 


F BSC(A»>=8 THEN R-=LEFT*<R» 


LEN(R«)-1) 


















EM REPONSES NON NUMERIQUES 




























F <fi»="*" 








F R»-"" THEN 4320 








13 THEN RETURN 




C-l 


F BSC<B*i=8 THEN Rt=LEFT*<H* 














=EC»l:PBINTaEC. 0»; 






f£M SOLUTI 


N POUR X TEND VERS 






















:ls 








■R1NT3128, 








'RINTSTRING*'43. """J! 






















'RINT3114, 








=RINTai7B, 
















'RINT'370, 














1'0 






),LEN(H1*< 


GOSUB 5800 








PHINT33S3, 


>1«<0MB2«(0>! 






--?••■ - 3 ■.■■:;- '.- 






PRINTSTRING»(43. U -")I 






<*RT«T35G2, 


'PUIS ON"; 




--?? 


PRINTS626- 

GDSUE SB BB 
























IF NI=3 THEN 5300 ELSE PRINT39B5. B2» • 1 1 




GOSUB 5S0I 








PRINT3690 
































PRINT3B05 










-SONS "SflHrBJ! 








"F<X) EST DU"i 








'■SIGNE DE :":SGN1NU-DE>: 












NF"i ELSE 




































=,ii02 


REM SOLLIT 


















1B00=NEXT 








TO B32 STEP 64 




MM 


PRINT3I.S 


RING»IG4.32>! 





SGN1NU«DE)-1 



2040 I 



1900 RETURN 

2000 HEM CH01NBGE DE5 PDLYNC+IES 
2010 FOR J-0 TD 1 
2020 fi«U>*="' 

2030 FOR I=DUI TO STEP -1 
.0 THEN 2080 
THEN f»<J)=fl«<J> 
2060 Bt.<7)=B«C.r>*STR»(a(J.I>> 
2070 IF IO0 THEN H»< J»=(W( J' * - > 
20B0 NEXT I, J 
2B9B FOR J-0 TO 1 
2100 A2»l-J>--<" 
2110 FOR 1*3 TO STEP -1 
2120 IF B2(J, IJ«0 THEN 21E0 
2130 IF B2<J. IHO THEN fl2*<J)-«2l 
2140 H2»U>-B2»(J>*STR*i02(J. I>> 



').STR»U)*CHR«t; 



3560 IF «•-"•■ THEN S-l ELSE S' 

3570 IF SGOS THEN OOSUB 5400 : 

35S0 PRINT" CORRECT"! 

3590 FOR 1 = 1 TO 10M5NEXT 

3600 RETURN 



1 THEN NI=NI-l:GOTG 414B 
" 404B CLS^PRINT: PRINT"W]TRE NIVEAU ESI 
4050 PRINTiPRlNT"BPPRENEZ UOTHE CDURE 
4BEB END 
4B70 REM DUHTRE REPONSES CORRECTES 



5450 NEXT 

S4E0 PRINT3512, "LQHSEUE X TEND VERS "!Q»!" UN P 

MITE DUE SON": 

5470 PRINT3576. "TERME DE PLUS HBUT DEGRE. DONE F 



5490 FOR 1=0 TO ! 
5500 PRINT3724+15 

5520 PRINT37B6, SI 



■RINT"VOUS MfllTRISEZ B1EN LB NOTION DE LIMITE. 
■"JE NE PEUX PLUS VOUS BPPRENDRE GROND' CHD9E. " 
"POSSE7 PLUTOT O UN OUTRE EXERCICE." 



"!=GOTO 557B 

5560 IF SG>0 THEN F 
5570 GOSUB 5B00 



3 VERS ■"•■ 

EN PRINTNUi=GC 

EN PR1NT3752^ 



'RINT3B15, "— 



;/a page pedagogique 



la page pedago — 



'la page pedagogique 



la page pedago~ 



Formation a I'assembleur 



COURS D'ASSEMBLEUR 



Depuis plusieurs semaines 
deja. vous pouvez irouver 
dans nos colonnes un cours 
d'assembleur decompose en 
deux parties essentietles 
(I'une theorique, I "autre prati- 
que). 

Cette semaine. le cours prati- 
que concerne a nouveau le 
6502 de ("Apple. Le prochain 
numero concernera pour la se- 
conde tois le 6809 du TO 7 et 
du TO 7-70. 

Jusqu'a present, les cours sui- 
vants ont ete publies: 
N" 55 -. ZX 81 



N D 56 -> ZX 81 

N°57-*ORIC 1. ATMOS 

N° 58 -> APPLE 

N" 59 -> T07. T07 70 

N" 60 -* COMMODORE 64 

N" 61 -* ZX 81 

N'62-.ORIC 1, ATMOS 

Michael THEVENET 
P.S. Pour tous ceux qui desi- 
rent acquerir les cours man- 
quants, vous pouvez comman- 
der une photocopie de ceux-ci 
a I'hebdo. en precisant claire- 
ment lesquels vous interes- 
sent. N'oubliez pas de joindre 
une enveloppe timbree et libel- 



Un autre exemple devrait 
eclaircir definitivement voire 
comprehension de la normali- 
sation des nombres fraction- 
naires. 

541.23 se normalise en 
0,541,23 * 10 i 2. Nous pou- 
vons done ecrire que la man- 
tisse M = 541.23 et que lex- 
posant E = + 2. Nous 
pouvons done enfin represen- 
ter notre exemple sous la 
forme M ' E, 

La normalisation que nous ef- 
fectuons consists a eliminer 
les zeros superflus (e'est-a- 
dire les zeros presents imme- 
diatement a droite de la vir- 
gule) ou a deplacer les nom- 
bres de la gauche vers la 
droite de la virgule et d'ajuster 
l'exposant en fonction du nom- 
bre de zeros ou du nombre de 
decalages accomplis, Cette 
normalisation possede une 
propriete que nous nous 
devons de souligner. En effet, 
une fois I'operation de normali- 
sation effectuee, nous avons 
pour resultat un nombre sous 
la forme 0,xxxx ' E. La man- 
tisse (egale a xxxx) est done 
TOUJOURS comprise entre 
et 1 (au sens strict du terme). 

Nous pouvons resumer cette 
propriete par les formules sui- 
vantes: 

O.t < = M < 1 ou 10 

f (- 1) <= M < 10T 1 

Nous allons maintenant voir 
comment nous transfererons 
le modele theorique dans un 
ordinateur. Tout d'abord, nous 
allons nous fixer un certain 
nombre de regies. La mantisse 
sera loujours stockee sous 
forme positive, un bit etant re- 
serve pour le signe de celle-ci. 
L'exposant sera lui aussi me- 
morise en valeur absolue, un 
autre bit etant as signe pour le 
signe de celui-ci L'exposant 
est toujours stocke avant la 
mantisse. le signe de chacun 
etant memorise devant la par- 
tie qu'il signe. Enfin la repre- 
sentation en virgule flottante 
des nombres fractionnaires se 
pratique d'une maniere stan- 
dard sur un format lixe de 
t rente deux bits. 

Voici la representation stan- 
dard Irente deux bits des nom- 
bres fractionnaires en virgule 
flottante: 



La decomposition des trente 
deux bits se fait done de la 
maniere suivante: 

-Exposant: bits a 7 dont bit 
egal bit de signe 
-Mantisse; bits 8 a 31 dont bit 
8 egal bit de signe. 

Compie tenu du type de repre- 
sentation choisi, il est evident 
que nous codons exposant et 



mantisse grace a la met node 
de representation en comple- 
ment a deux. L'exposant etant 
code sur un octet selon le 
complement a deux, les va- 
leurs minimale et maximale de 
l'exposant sont done: 2 f 127 
et2f (- 128). 

Cette representation est la 
plus couramment utilisee car 
elle autorise la manipulation 
de grands nombres avec une 
marge d'erreur faible, une ra- 
pid ite d'execution cor rede et 
un encombrement memoire re- 
lalivement restreint. Ce type 
de representation n'est pas 
unique et peut laire appel a 
trois, quatre ou plus d'octets. 
Malgre tout la solution presen- 
tee sur quatre octets est 
le meilleur compromis des 
quatre facteurs evoques plus 

Nous sommes, au stade actuel 
de notre etude, capables de 
representor les nombres sous 
toutes leurs formes. De rentier 
en binaire ou en decimal code 
binaire jusqu'au nombre frac- 
tionnaire, nous avons etudie 
sa representation en machine. 

II nous reste encore un en- 
semble de caracteres a exami- 
ner avant de considerer le 
chapitre de la representation 
interne des donnees comme 
clos. En effet, lorsque vous 
realisez un programme, vous 
utilisez les caracteres alpha- 
bet iques pour envoyer des 
messages a I'utilisateur. Nous 
devons done maintenant nous 
pencher sur le probleme du 
codage des donnees alphanu- 
meriques dans le micro-pro- 
cesseur. 



Nous abordons le seul do- 
maine de I'informatique ou un 
standard existe et est applique 
(a une exception pres: IBM ne 
lutilise pas). En effet, le co- 
dage des caracteres se realise 
sans difficulty majeure. Une 
representation des caracteres 
sur huit bits a ete universelle- 
ment choisie et appelee code 
ASCII (la variante creee et uti- 
lisee par IBM et les compati- 
bles se denomme EBCDIC). 
ASCII signifie en francais 
"Code Standard Americain 
pour I'Echange d'lnforma- 
tions". 

Si nous voulions creer ce 
code, nous devrions conside- 
rer tout d'abord le nombre mi- 
nimal de caracteres a coder. 
L 'alphabet compte vingt six 
femes et nous devons repre- 
sentor majuscules et minuscu- 
les ce qui donne deja un total 
de cinquante deux caracteres. 
Nous avons aussi dix chiffres, 
ce qui monte a soixante deux 
le nombres de caracteres a 
coder. Nous estimerons que 
notre micro-processeur ne ne- 
cessity pas plus de vingt ca- 
racteres speciaux (tels le re- 
tour a la ligne. I'espace, les 
parentheses, le saut de 
ligne...). Nous aurons done un 
total de quatre-vingt deux ca- 
racteres a coder. Nous savons 




sur sept bits nous pou- 

obtenir cent vingt huit 

s differents. Nous allons 

utiiiser les bits zero a 
pour coder lensemble 

caracteres alphanumeri- 



Comme nous ne pouvons re- 
grouper s implement les bits 
autrement que par huit, le bit 
sept servira de BIT DE PA- 
RITE. Cette utilisation du hui- 
tieme bit nest pas systemati- 
que. Elle est generalement 
utilisee entre le micro-proces- 
seur et un terminal pour veri- 
fier qu'au cours dune trans- 
mission, aucun bit n'a ete 
change accidentellement. 

Comment fonctionne le test de 
parite ? Nous allons regarder 
brievement le principe de ce 
test. Nous comptons le nom- 
bre de uns presents sur les 
sept premiers bits (bits neces- 
saires au codage des caracte- 
res). Le test peut s'effectuer 
de 2 manieres. qui toutes deux 
utilisenl un principe similaire. 

SOLUTION DES EXERCICES 

EX 10 representation OCB 

compact des nombres 

a. 42 = 01O0.O010 

b. 99 = 1001.1001 

c. 1224 = 0001.0010.00100100 



EX 11 i 

naire suivantes sont-etles des 
conversions DCB? 

a. 0OOO.1O10 nest pas une re- 
presentation DCB. En effet. le 
premier quartet nous donne bien 
O en decimal. Par contre le 
deuxieme quartet ne donne pas 
de decimal, faisant partie des 
codes inutilises en conversion 
DCB. 

b. 0110.1100 nest pas une re- 
presentation DCB Premier quar- 
tet: 6: deuxieme quartet: code 
inutilise en DCB. 



a. 12.735 (decimal) 

— 5+ 12735(BCD) 
xxxx.0101. 0000.0001. 
0010.0111.0011.0101 

(binaire) 

b. -4327 (decimal) 

4-432 7 (BCD) 

0100.0001.0100.0011.0010.01 1 1 

(binaire) 

EX 13 '55SS'. Combien de bits 

en... 

a. DCB: 4 chiffres, le signe, 
nombre de chiffres. 6 informa- 
tions occupant chacune un quar- 
tet. II taut done trois octets, soil 
vingt quatre bits. 

b. binaire: le nombre d'informa- 
tions a stocker est identique. il 
faudra done aussi vingt quatre 



5555 (decimal) 

OOO1.O101.1O11.OO1l (binaire 
en complement a deux). 



INTRO A L'ASSEMBLEUR PRATIQUE 

Langage machine. . . sur apple 




memoire. Pour cela, nous 
avons tape CALL - 151 suivi 
de RETURN, ce qui nous per- 
mettait d' entre r dans le moni- 
teur. Desormais et a partir de 
maintenant tout de suite, je ne 
repreciserai plus la facon d'y 
entrer, car je pense que cela 
ne vous est pas trop difficile a 



Nous avons sur le tableau 1 le 
listing de la memoire allant de 
S EO00 a $ E02B. Comme je 
I'ai montre la fois precedents, 
chers petit s amis, la troisieme 
colonne est une representation 
en assembleur des codes 
hexadecimaux de la deuxieme 
colonne. 

TABLEAU 1 



Pour etre plus clair, ear je 
sens que vous vous embrouil- 
lez, je parlerai de la troisieme 
colonne en tant que listing as- 
sembleur. Or, ce listing as- 
sembleur est lui - meme 
compose de deux colonnes 
(un peu plus et on construit le 
Parthenon) dont la premiere 
contient toujours trois lettres, 
elles-m^mes appelees code 
mnemonique et la deuxieme 
contient les operandes, c est a 
dire les adresses affectees par 
les mnemoniques qui les pre- 
cedent. 

Nous allons vite ecrire un petit 
exemple car je sens qu'une ir- 
resistible envie de bailler vous 
tourmente. Entrons done dans 
le moniteur (je pense que vous 
savez comment). La petite 
etoile et le curseur clignotant 
vous indiquent que I'ordinateur 
attend un ordre: nous allons 
done commencer par un pro- 
gramme com pi element idiot el 
denue d'interet. A la fin de 
chaque ligne. ne jamais ou- 
blier de taper RETURN. 



Tapez ensuite 300L et vous 
devez voir ce qui suit sur voire 
ecran (si ce nest pas le cas, 
ou bien je devrais aller suivre 
des cours, ou bien vous vous 
etes plante quelque part et 
notez que le signe £ corres- 
pond au signe # en clavier 
americain). Ce qui suit notre 
programme ne nous interesse 
pas pour le moment, je ne I'in- 
dique done pas ci-dessous. 

300- 00 

301- A9 01 LDA C$01 
303- BO 00 03 STA $ 300 
306- 60 RTS 



Ce programme ne lait rien 
d'autre que de ranger a 
I'adresse $ 300 le chiffre 01. 
Pour elre surs de notre resul- 
tat. nous avons d'abord stocke 
en commande directe un 00 a 
cette adresse (300:00). Pour 
laire lourner le programme, 
tapez 30OG et en retapant 
300L, vous pourrez vous aper- 
cevoir que I'adresse $ 300 a 
effectivement change. Genial. 
non? 

SALADE DU CHEF 

Le code A9 en hexa corres- 
pond au mnemonique LDA. et 
STA est la traduction du code 
8D. LDA veut dire en clair: 
LoaD Accumulator ou en fran- 
ca i s : charger I'accumulateur 
avec la valeur suivante. L'ac- 
cumulateur est un registre (de 
son doux nom), avec I'aide du- 
quel s'effectuent pas mal de 
transferts de donnees ou 
d' operations comme I addition 
et la soustraction. On y met un 
nombre compris entre et 255 
et on peut alors en faire ce 
qu'on veut (sauf le donner a sa 
grand-mere comme cadeau de 
Noel). Dans notre cas, I'accu- 
mulateur nous a servi d'inter- 
mediaire pour ranger une va- 
leur a I'adresse $ 300. Cette 
valeur etait $ 01, nous aurions 
tres bien pu en prendre une 

Le dernier mnemonique (RTS) 
est une instruction de retour 
de sous -prog ram me, Cette ins- 
truction nous servira beau- 
coup. Sans elle, on ne peut en 
general pas reprendre le 
controle de la machine, ce qui 
est assez genant. 
Nous allons traduire en fran- 
cais ce que nous venons d'ex- 
pliquer en suivant pas a pas le 
deroulement du programme. 

LDA £ S 1 : Charger le regis- 
tre accumulateur avec la va- 
leur $ 01 

STA $ 300: Ranger le contenu 
de I'accumulateur a I'adresse 
£300 
RTS: Retour a I'utilisateur 

Nous reparlerons plus tard de 
la signification du signe £ qui 
se trouve juste apres linstruc- 
tion LDA. Prenez d'abord le 
temps de prendre une tasse 
de the accompagnee de made- 
leines et cogitez tout cela en 
ecoutant Brahms. 

PLUS 
DESTRUCTIONS 

Le mnemonique LDA nest pas 
tout seul. II en existe deux 
autres qui trans portent des 
donnees: LDX et LDY. Leurs 
correspondences en hexa sont 
respective ment A2 et A0 et les 
instructions de rangement STX 
et STY. Dans notre pro* 
gramme, nous pouvons done 
remplacer les deux premieres 
instructions par ces nouvelles 
venues et nous obtiendrons le 
meme resultat. 

Nous avons vu que nous pou- 
vions charger un registre avec 
une valeur quelconque 
comprise entre et 255 (S 
FF). Cependant, nous pouvons 
aussi mettre dans ce registre 
une valeur contenue dans une 
adresse specifiee Par exem- 
ple, si je veux charger le regis- 
tre A avec la valeur contenue 
a I'adresse numero $ 30, il me 
suffit d'ecrire LDA $ 30. sans 
laire precede r le signe S du 
signe £ . C'est la que nous 
nous apercevons de I'utilite de 
ce signe, qui nous permet d'in- 
diquer a I'ordinateur quel type 
destruction nous desirons uti- 
iiser. Ces deux facons d'agir 
sont appelees mode d'adres- 
sage. Dans notre programme, 
nous avions utilise le mode im- 



mediat, et dans t'exemple, le 
mode absolu. II existe d'autres 
modes d'adressages, mais je 
pense que vous devez d'abord 
ingurgiter tout cela avant de 
vous enfoncer dans les profon- 
deurs modales (quelle poe- 
siel). 

Voici un deuxieme programme 
commencant a I'adresse S 300 
et ulilisant les instructions que 
nous venons de deer ire, qui 
range aux adresses $ 2000 a $ 
2002 les valeurs 1 . 2 et 3 et en 
S 2003 la valeur contenue a 
I'adresse $ 21 (Je sais. mes 
programmes sont d'un pas- 
sionnant...). 

300:A9 01 8D 00 20 A9 02 8D 
01 20 A9 03 8D 02 20 < RE- 
TURN > 



300-A9 01 
302-8D 00 20 
305-A2 02 
307 -8E 01 20 
30A-AO 03 
30C-8C 02 20 
30F-A5 30 
310-80 03 20 
313-60 



LDA £ $ 01 
STA $ 2000 
LDX £ $ 02 
STX $ 2001 
LDY £ $ 03 
STY $ 2002 
LDA $ 21 
STA $ 2003 
RTS 



Si vous tapez $ 2000L apres 
I'execution du programme. 
vous remarquerez qu'il y a ef- 
fectivement les valeurs 1 , 2 et 
3 en £ 2000, $ 2001 et £ 2002 
et qu'en £ 2003 nous avons le 
nombre qui se trouve a 
I'adresse £ 21. Les codes 
hexadecimaux correspondents 
aux differents types de modes 
d'adressages different bien 
entendu selon le mode utilise. 

REGISTRE D'ETAT 

En plus des registres que nous 
venons de decrire, il existe un 
quatrieme registre qui nest 
pas utilise pour ranger des 
nombres mais pour indiquer 
dans quel etat (d ou le nom) se 
trouvent divers bits (s'ils sont 
a 1 ou a 0) qui nous donne- 
rons de precieux renseigne- 
ments sur le deroulement du 
programme. 

En effet, ce registre contient 8 
bits (comme tous les autres re- 
gistres d'ailleurs} dont sept 
sont utilises. Comme vous 
pouvez le voir sur le tableau 2, 
ils sont numerotes de a 7 de 
droite a gauche. 

TABLEAU 2 



7 6 5 4 3 2 10 

|N|V|-|B|D|||Z|C| 



Le bit 1 (appele bit de zero ou 
bit Z) est celui qui nous inte- 
resse en premier. Ce sera un 
des plus utilises dans nos pro- 
chains programmes. II est mis 
a un par le microprocesseur 
lorsque le resultat d'une ope- 
ration nest pas egal a zero, et 
est mis a zero dans le cas 
contraire. Mais attention, j'en- 
tends par resultat d'operation 
le fait que: 

1: le chiffre resultant de I'ope- 
ration soil 

2: I'operation donne un resul- 
tat vrai. Par exemple, si vous 
comparez deux chiffres qui 
sont egaux, le resultat de la 
comparaison sera vrai, done le 
bit 1 sera mis a zero. 
Ceci etant expose, je vais aller 
ouvrir mes cadeaux de Noel 
(merci cher Redacteur en 
Chef) et hiberner jusqu'au pro- 
chain cours. 
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LES SCHPOUMRFS 



Eh oui ! lis sont de retour. Mais Garbamel avec son 
chat Azriel est plus mechant que jamais. En effet, il a 
enleve la schpoumpfette et la retient dans son horrible 
manoir. 
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LIGNE: CRRflCTERES: 

3iee... wUEU HJvf) fiU vOulez-vous 

1> DIFICILE 

2> MOYEN 

3) FRCILE 




S67 BEEP .81,35: PRINT AT 8,9; 
INVER5E i;s; ■' " 
570 NEXT i 

572 PRINT RT j,i; PAPER 8; " 

573 LET s«S+30: BO TO BSS 

575 CLS 

576 PRINT RT 8,0, INVERSE 1; "EN 
ERGIE= ";s;BT 0,14; "TABLEAU^ "11 

ibi" UIE r, ;''S" AND uie>i;"« ";vn 

577 LET b( = " ": LET X -8 
57B FOR i=lS TO 21: PRINT AT i, 

>; PAPER 5;t«;RT i ,24; PAPER 4Jb 

i; NEXT i 

579 BEEP .1,48: PRINT PAPER flj A 
T fl^l/.x; INK 7;"»";RT y,X; INK 

588 IF y<=19 THEN LET j«INT tRN 

0*2) ry 
5B1 IF y>19 THEN LET j»y 
562 FOR i»18 TO 8 STEP -2 
583 IF x>21 THEN GO TO 591 
5S4 PRINT AT j,i; INK 2, PAPER 

S,"5 - Tjj 
595 BEEP .85,-38 
586 GO SUB 538 
567 IF <i«X OR i=X + l> AND j=y T 

MEN PRINT RT j , i ; INK 2; PAPER 8 

;- ";RT y-l,x;" ";RT y,x; 
INK 8;" U -. BEEP 1,-38: PRINT fl 

T a, 9; INVERSE l.i* ": CO TO 18 

588 PRINT RT 3,9; INVER5E lj». " 
: NEXT i 

589 PRINT AT j,0; PAPER 8; " 



S-l.X, " 
FOR *>; 



. LET y = 17 
22 TO 29 



;AT y,x; j«;RT . 
; AT y-l,x; '■ £• 

59* BEEP .01735: PRINT AT 8,9; 
INVERSE l;«; " ": NEXT X 

595 IF S> = 1500.H1500tround> THE 
N PRINT AT 10,10, FLASH 1; "BONUS 

!": FOR i=S TO 5*2 5TEP 18: BEE 
P .885,8: PRINT RT ,0, "ENERGIEn 

";i: NEXT i: LET S*i: REM 
--< Tableau 6 > 

596 CLS : RESTORE 597: FOR »«1 



READ It: FOR t«0 TO 7: READ b: P 
OKE USR ai+t,b; NEXT I: NEXT a 

652 DATA "It" ,60,24,84,60 , 186, 13 
6,126,63 

553 DATA " I " , 16 , 16 , 16 , 16 , 16 , 16 , 
15,56 

654 DATA "l>" ,235, 16, 16, 16,255,1 
28,126,128 

655 CLS : LET c*s"UUUUUUUUUUUUU 
UUUU" 

656 LET b*='| 

657 FOR i»18 TO 21: PRINT AT i, 
0, PAPER 4; tt: NEXT i 

668 FOR i-0 TO IB: PRINT AT i,l 
5; INK 7, PAPER 2;e«: NEXT i 

661 FOR »=11 TO 17: PRINT RT », 
15; PAPER 8; INK 7;b«: NEXT i 

563 PRINT AT 8,8; INUCRSE 1; "EN 
ERGIE* ,*;ffT 0,14; "TABLEAU* "jt 
at>;" uwr'S" And vi«>i;"« "jvu 

685 PRINT RT 14,0; I N * *i mil* 
T l?.«i."ft.' , ; ST 15,0; INK ij'T*''; 
rt ^6,e;^^' , 

666 FOR X«0 TO 89 _ 
687 LET w=17: LET J««" jt" 

669 PRINT AT y -3 , X i PAPER 8; IN 

K 678 IF X»12 Kno'iNKEY** "0" THEN 
BEEP .1,-48: FOR i*ll TO 17: PR 
INT RT i,15; PRPER 0;" : NEXT i 
: GO TO 673 

671 IF X = 12 AND INKEY«<>'0" TME 
N FOR i-1 TO 13 STEP 2: BEEP .01 
. l*l-i): PRINT AT i,X+8; INK f ' " 
•"jflT i-2,X+2;" ": NEXT :' ' 
675 

673 BEEP .01,; 
INVERSE us;" 

674 GO TO 676 

675 BEEP * 



01,30: NEXT a 



NEXT t: BE 

0,8, 12, 30,55, 127 



597 DRTA -»- , u , a , o , xm. , on , so , i 
, 127," I" ,8,8,8,8,0,0,255,255, "■ 
,0,0,8, 120 , 132 , 4 , 132 , 248 

598 DATA "n" , 63 , 1 , 3 , 15 , 255 , 118, 
0,8, "O", 192, 192, 192,224,224,240, 
128, 56 , "P " , 8 , , 16 , 48 , 120 , 236 , 254 
,254 

599 DflTR "q", 8, 0,0, 38, 33,32, 33, 
31, "r", 858,188, 198,240,855,14,0, 
0, "a", 3, 3, 3, 7, 7, 15,38,28 

601 LET t«b=6: CLS : FOR i - 18 T 
81: PRINT RT i,8; PAPER 4;t»: 
NEXT i 

M2 LET X*0: LET y«17: LET jie" 
3 PRINT AT 0,0; INVERSE 1; "EN 
ERGIE= ";S,AT 0,14; "TABLEAU- " ; t 
ab;" uiE" ;"S" AND vitu;"- ";vit 
604. PRINT RT 14,0, INK 7;"J|";fi 
T 17,0, "IL/'iRT 15,0, INK l;"*"; 

at 16,0; Tfr'" 

605 FOR i«86 TO STEP -8: LET 
y = 17 _ 

606 LET j»=" ft" 

607 PRINT RT 17 , i ; INK Bi ™/ 
■;RT 16, i, "*■■ 

608 LET x»X+ IINKEY»»"8") 

609 IF INKEYt»"7" THEN PRINT RT 
«-l,Xj_" '-;flT V'"'" " ; LCT u 

-15: LET j«» f - #■»* 

610 PRINT RT g-~ 



-l,x 



|lb r ;RT j 



Vo 



PRINT BT 8,9; IN 
• INK i* 



UER5E 1,S: PRINT RT U-3,x; INK 4 
, »";AT y-2,x_," ♦ ;RT H-i(Kj" 
jfc";Rt y,x; ■ %" -. *EEP 1.-84.: P 
RINT rt y-4,x;^ ";RT y-ajX;" 



■■;RT ' 



: GO TO 1080 

680 PAPER 8: INK 7: CLS 

681 LET tab«7 

699 LET n**"UUUUUUUUUUUL>UUUUUUU 
UUUUUUUUUUUUU" 
788 REM < TSbltau 7 >-- — 

701 FOR i>0 TO 13: PRINT AT i,0 
, INK ?J PAPER S,»*: NEXT i 

702 FOR i=10 TO 21: PRINT RT », 
0, PAPER 3; " 

-: NEXT i 

703 PAINT BT 81,0; "ENERGXE* "ifi 
,RT 21,14; "TRBLEAU- ■■;tab;" UIE" 
, "5" RNO WieHi "- " 

705 PRINT AT 15 
T 1B,0 
AT 17, L. , 

705 PRINT^AT 19,5; INK 8 J"KWK" . 



PRINT.I 
.. PRINT I.. 

at is , 13 r ja at 



T 15,0; INK 7:"(«»",A 
AT 16,0; INK 1 ;'*»'■; 



;AT 19,21; " 
LET j*-" 



LET 



_J, 29; "„ 
707 LET 

y«ie 

706 FOR Z"l TO 6 

789 IF x<5 THEN LET j-INT IRNDft 

718*IF X>-5 THEN LET j-INT (RND 
•3) 



711 FOR i«l TO 14 

T RT i ' 

INK s; 

_NKEY|= o i 

PRINT RT 1S,X-1; INK 7; 
le.ii-l; " Wk"i KT 18,x-i; 
♦ ", AT 17.X-1; " *" 



712 PRINT AT i-l,Ji PAPER 2,"! 
,RT »,j; INK b; PAPER 8,"f>" 

713 IF INKEY8 = "8" THEN LET X«: 
1; 

RT 



[fll'l 



714 IF INKEY*»"B" ANO 

LET xax-1: PRINT RT 15, 

• RT 18,x;"a "■ 



AT 16, x; INK 



T V-4.... 

611 IF y«17 RNO (i-3*X OR i -I 
) THEN GO TO 638 

618 IF X>-25 THEN GO TO 68S 

613 BEEP .81,33: NEXT i 

614 LET ft-fi+5«: PRINT RT , 9 
NUER5E l;s 

616 FOR i=0 TO 86 STEP 8: LET 
■I 7 _ 

616 LET j*-" ft" 

61? PRINT RT 17, i; INK 2; 
•'■;RT 16. i;" Imv 
"616 LET X«x+(INKEY»»"6") „ „ 

619 IF INKEY*«"7" THEN PRINT RT 
3-1, x;" "JAT y,x;" "s LET 9 

= 15: LET jl-'" ^» r " 

620 PRINT AT « -3 , X ; INK 7;" «" 
;BT «-x; j«fPT h-8,x; INK 1;" ^" 
;AT 8-lfSi *fc JHT »-».«• ; R 

621 iF*V*17 AND (i+5«X OR i+4"X 
) THEN GO TO 630 _ m 

622 IF x>>25 THEN GO TO 625 

623 BEEP .01,33: NEXT i 

624 LET *=s+50: PRINT RT 0,9; I 
NUER3E lift: GO TO 605 

625 PRINT AT 17,i;" ";RT 1 

687 GO TO 640 _ . 

630 PRINT RT 8,9; INVERSE 1 i % : 

;" A": BEEP 1,-24: PRINT RT y-3 
,x, liflT M-8,x;" *igt Vrjix 

*..' ...flff y „. n ■■- G to I000 

640 FbR X>X TO 29 

645 PRINT RT «-3,x; INK 7;' *»' 

;BT g,x;j|;RT «-8,x, INK l; W" 

;RT «-l>xi f ' Ifc'jHT y-5,x;" 'fi 

647 BEEP .81,30 

650 NEXT X „ _ 

651 RESTORE 652: FOR i-1 TO 3: 



6 THEN PR IN 
" x; INK 



ff"^ "iflT 17,X,"jt 
715 IF ATTR (jJtl.xT _ 

T RT 21,9;»: PRINT^T u-j 

Jt' 1 ;* g,x;*it'?'BEEP' 11-**: 
NT AT u-i.x,^ ";AT «-8,x;" 
;AT y-ii*;" "'MT »»*i " : °0 

TO 1000 

717 BEEP .01, (41-i) 

718 NEXT i 

719 IF j-X OR j»X+l THEN PRINT 
' y BT 21,9;s: PRINT SlT y-3,x; INK 8 



T «-s,x; " ifit y-I,J 

v.xi - "1 00 to lege 

?afe let t.s+ae: prin' 

■■i? T .i^ 8 i«'■■ " 



rt" 

NT RT 14 , j ; " 



721 NEXT i 

723 PRINT RT 19,0; PAPER 3; J* 
783 IF (x*7) >29 THEN GO TO 768 

724 FOR X*x TO X+7 

725 PRINT BT y-3, x; INK 7; " m " 
;BT y-8,x; INK l; " *t*'J(T y-l.x; 
'■ Jfc";RT i,x, INK 7;" K": BEEP 
.01,30 

786 NEXT X 

787 PRINT RT 19,6; INK 6 J "WOC "; 
BT 19,13; "HIOC",AT 19,81; "MP ;RT 

19,29; "WT 

728 GO TO 708 

789 IF (X+8)>29 THEN GO TO 760 

760 FOR x=X TO 29 

761 PRINT RT y-3,X-li INK 7i" « 
#";AT y-8,x-l; INK 1;" Nr ,- ;AT y- 
l,x-li_" fc';flT y,x-l; INK 7;" A 
": BEEP 781,38 

762 NEXT X 

770 RESTORE 771: FOR a«l TO 11: 
RERD a*: FOR ue TO 7: READ b: 

POKE USR a«+t,b: NEXT t: BEEP .1 
,a. next a 

771 DflTR "l" ,23,47,29,46,47,26, 

778 ORTR "I", 232,244, 164, 116, 24 

4,56.824,198 



773 DATA "■",1,3,7,7,7,7,3,15 

774 DRTR "H", 126, 198, 824, 224, 22 
4,224,193,240 

775 DRTA "o",l 
854,254,254 

776 DATA "p" , , 15 , 31 , 31 , 89 , 3 , 7 , 
15 

777 DRTA "q", 254, 252, 254, 254, 85 
5,255,253,322 

778 DATA "r" ,7,7, 181, 127,63,8,7 
,1 

779 DATA "s" ,60, 126 ,855,255,255 
,285,126,60 

760 DATA "t", 0,54, 187, 127, 187, 6 
8,28,8 

761 DATA "U", 14, 14, 14, 14, 127, 25 
,127 

- INK 7: C 



785 PAPER 8: BORDER 1 



LS 



881 LETnl 

602 FOR i »7 
AT i,«i INK 
883 LET tt= 

885 LET x>£i 

807 FOR »-X TO X-3 5TEP -1: PRI 
NT PAPER 7;flT i,8;et;RT i,29;«$: 

NEXT i 

888 IF x>19 THEN LET x»14: GO T 
O 887 

810 FOR i»6 TO 3 STEP -1: PRINT 

PAPER 7;RT i,0;RT i,0;e«: NEXT 

l Bll PRINT PAPER 7;RT 17,0;«t;RT 

17,29:ft«,RT 10,29;tt;RT 18,8;ei 
;HT 2,8, «* 

818 RESTORE 813: FO 
28 STEP -1: RERD *,b 
DRAU b,8: NEXT i 

813 DBTR 228,24,227,26,827,26,2 
27 , 26 , 227 ,26,227,26, 886 ,36 , 836 , 3 
8,226,28,226,28,227,26,227,85,22 
7 , 86 , 227 ,26 , 227 , 26 , 228 , 24 , 22S , 34 
, 229 , 28 , 230 , 20 , 23 1 , IB 

815 PRINT AT 2,29; "\/" ; AT 3,29; 

INK l; ■•■, AT 3 ,30; INK 6;"I";AT 

4,28; OVER 1; "«"■" 

315 LET Jk24 

817 PRINT AT 0,0, "ENERGIE= ";6; 
RT 0,l4i "TRBLEBU- ";tib;" UIE'";- 
S" and vie>i;"- ";vie 

620 PRINT AT l,j; INK 2;"- ""; 
RT 2, j + 1, ■'•JC'jAT 6,j + l; "UU";RT 1 

,j+i; ink 3; "■)" ; RTJ , j ; ' I" ; rt 2 
,j_±3; "l";flT 37j; " Wf ";RT 4,j + i; 



I FQR i =26 TO STEP -8 

650 LET y-31: LET JS-" &" 

851 PRINT INK 3, PAPER STBT 14, 

(28-i);," S'iBT 31,i;"S r, ;RT 6, 

853 IF INKEY»="8" RND X <29 THEN 

LET x*Xtl 

654 IF INKEY$a"7" THEN PRINT RT 

u-i,x; paper or ";ffr «,*;" 

B : LET y>20: LET j*» f ' ^» n 

855 PRINT PAPER 6;RT y-3,x; INK 



RT y,x; Jii,flLl!-2. 



";RT y-1 



rs+"i- 



656 IF (i»X+3 OR itX+8) AND y=8 

1 THEN GO TO 1008 
660 PRINT BT 0,9;s;" ": NEXT i: 
PRINT PBPER 7;AT 21,0,t*;AT 14, 

29;e*i_RT 6,0;e»: LET B.6t30 

870 IF x (28 THEN GO TO 840 

871 FOR i=17 TO 21: PRINT AT i, 
29, PAPER 7;«f: NEXT i 

880 RESTORE 861: FOR *"1 TO 7: 
READ as: FOR t»8 TO 7: READ b: P 
OKE USR a«+t,b: NEXT t: BEEP .1, 
40: NEXT a 

881 DATA "c". 198, 186, 234, 216, 84 
4,248,284,192 

662 DRTR "8",; 
,188,252,258 

883 DRTA " f " , 3 , 6 , 6 , 49 , 127 , 127 , 4 
8,7 

864 DBTB "a" , 252 , 248 , 248 , 240 , 60 
,28, 124,180 

,15,7,3,7,7,54,83,3 



,852, 251, 255, aBS, 7, 



, (D, J.** , IE' 

885 DATA 
1 

886 DATA 
14,0,0 

667 DATA "j", 111, 231, 255, 855, 96 
,0,0,0 
890 FOR i=2S TO STEP -2 
691 LET y-14: LET J*»"LJ " 
592 PRINT INK 57 PRPER 8jRT 14, 

tae-ii;" s ,- ;rt si,»; ,- s f -;RT 6, 

(i/2i;'-3 

893 IF INKEY»="5" AND X >0 THEN 
LET X«X-1 

894 IF INKEY*»"7" THEN" PRINT AT 

■ ■ prrkr b^ _";,SL y,.*;*' 

INK 



LET I 



im : 



y-4,x 

-31-X) AND v 



NEXT i : 
i;tl;AT 14, 
iS *30 



896 IF (i-30-X OR 
=14 THEN GO TO 1000 

897 PRINT RT 0,9; fi; 
PRINT PAPER 7;flT 21, .. 

29,e*,RT 6,0,«j: LET s.Bt30 
896 IF x>0 THEN GO TO 890 

899 FOR i«18 TO 14: PRINT RT i, 
0, PBPER 7; eft: NEXT i 

900 GO SUB 1588 

910 FOR i-26 TO 8 STEP -2 

911 LET y»6: LET j»«" H" 

918 PRINT INK Si PAPER 6,RT 14, 

iae-i);" 5";bt ai,i;-s '";flT 6, 

913 IP INKEY»="8" AND X<14 THEN 
LET x.Xtl 



914 IF INKEV*o"7" THEN PRINT RT 
y-l,x: PAPER 8;" " ; AT y,x;" 

s : LET y=5: LET J| = ■ , •*•" 

915 PRINT PAPER (S;AT y-3,x; INK 
7," At"'P,T y ,x, j«,RT u-a,x; INK 
l;" *",RT y-l,x; f - 4« ff ;AT y-4,x 

'916 IF ii/2=X+3 OR i/2»Xt2! AND 
y=6 THEN GO TO 1000 

917 PRINT RT 0,9;»;■' ": NEXT i: 
PRINT PAPER 7iAT 21,0;«*;AT 14, 

29;e*,flT 6;0,e»: LET s=s+30 

918 IF X<14 THEN GO TO 910 

920 PRINT AT 7,16; INK 5;" ": 
BEEP 1,50: PRINT INK 5 , AT 7,20, 

■■■■■;AT 8,20, " I"; AT 9.20J"I'-;AT 1 
0,20; " ■" 

921 FOR X*X TO 20 

923 IF INKE¥««"7" THEN PRINT RT 
y-l,x; PAPER 8;" "jflT y,xj" 
": LET ya3: LET j%m" •"" 
925 PRINT PAPER B;RT y-3,X, INK 
7," *» M ;AT y,x;j»;AT y-2,x, INK 
l;" jp";AT y-l,x; f ' fl^RT y-4,x 

'925 IF X>15 AND X<19 RND y =6 TH 

EN GO TO 1000 
923 NEXT X 
989 LET y-6: PRINT PAPER 8;AT y 

-a,x; ink, ?;■■ m-'ipy «.Xi" tt";R 

T y-2,x, ink 1~ ♦ ,, ;BT y-l,x;" 
A", AT y-4,x; " 
930 LET fi"S+100: PRINT RT 0,9;» 

'933 LET XsXtl: IF X<82 THEN GO 

TO 929 

935 FOR i »0 TO 6: PRINT RT i , 24 
;*•;" ": BEEP .2,i : NEXT i 

940 RESTORE 941: FOR 4=1 TO 4: 
HERD a»: FOR t=0 TO 7: REAO b: P 
OKE USR ai+t,b: NEXT I: BEEP .1, 
40: NEXT B 

941 DRTR "H", 252, 254, 255, 240, 60 
,28, 124, 120 

942 DRTA " I " , 15 , 31 , 63 , 7 , 7 , 54 , 63 
,31 

943 DATA "»" ,3 ,6 ,6,49, 187, 187,4 
6,7 

944 DATA "n " , 32 , 808 , 208 ,216 , 216 
,184,248,252 

950 FOR i =2 TO 6: PRINT RT 1 , 28 

'1*0 FOR iJl TO 6: PRINT RT i,X; 

ft;" ": NEXT i 
965 PRINT AT 0,0; PflPER 0;".. 

970 PRINT RT 3,86; JNK 7, "!■>•*" 
; INK l;RT 4,86; "%»",flT 4,29; I 
NK 6;"r M ;RT 5,26; INK 1,' , 4V'JAT 
5,26, INK 7;— "JAT 6 ,86; TtHf " 

960 FOR i-0 TO 15: PRINT AT 0,2 
7; INK 8, "T T": BEEP .1,(1*10): 
PRINT AT 0.15;" ■': NEXT i 

998 PRINT BT ,0; "ENERGIES ";% 

997 LET roond»round+l: PRINT "6 
ravoM!": PRINT 81; "J ' a t tends un 
e touche 1(1"; PAUSE 0: CLS : PR 
INT RT 10,0, "Hais ,Gar9a«ei ,«aigr 
e voire lecona recidive niParvi 
endr«z-vous a Le terrassir tncor 
e une fois t\~: PRINT ni; INUERS 
E l; "Prestez una toocht": PAUSE 
0: RESTORE ; LET vi«=vit+l: GO T 
20 

1000 REM < Ui«( i 

1001 CLS 

1003 LET vi«=vit-l 

1010 IP ViB<»0 THEN GO TO 8000 

1020 IF tab=l THEN RESTORE 107: 

GO TO 99 

1821 IF tab=8 THEN GO TO 190 

1028 IF lSb=3 THEN GO TO 270 

1023 IF tab=4 THEN GO TO 380 

1024 IF lab»3 THEN GO TO 470 

1085 IF lab=6 THEN GO TO 396 

1086 IF tab-=7 THEN GO TO 680 

1087 IF lab=B AND y=14 THEN GO S 
UB 1500: GO TO 785 

1828 IF tab=B THEN GO TO 765 

1499 REM (DEF.GRR.2nd« > 

1500 RESTORE 1501: FOR a-1 TO 7 



i501 DRTR 'c'-, 99, 93, 87, 91, 47, 31 

1508 DATA "e", 4, 11, 11, 27, 27, 61, 6 
3,63 

1503 DATA "f", 192, 96, 96, 140, 254 

254, 12,224 

1504 DATA "g" ,63,31, 15,15,60,56 
62,30 

1505 DATA "K" ,840,834, 192,224,28 
4,106,858,245 

1506 OBTB "i" ,63,283,355,255,884 

i507 ' DATA " j " , 846 , 231 , 255 , 253 ,5 , 

0,0,0 __ 

1608 RETURN 

2000 CLS : PRINT RT 10,7;"VOtr« 

i core es 1 ";s; " 

8010 IF s>=sc THEN LET t C ■• 

8020 PRINT RT 13,7; "Lt record «S 

t : ";»c 

2038 INPUT "UOULEZ-VOUS REJOUER 

5"; c« 

2040 IF r«(l)="0" OR r(tl)«"0" T 

HEN GO TO 10 

2050 STOP 

3000 PAPER 2: BORDER 2: INK 7: C 




ORIC TIME 



ORIC1ATMOS 



Ce programme vous propose un chronometre au 1/100 Mode d'empioi: 

de seconde avec stockage du temps intermediaire E pro ^ s ™ f lai T nes '' est * n °<er que la premise correspond a la 

une horioge e. la possible de transformer votre Oric S5 £."£, S^STSiir "" ° " ai " Si * s * ° e 

en reveil matin. a chaque alarme. 
Joel SAMBUIS 



3 REM * Pre 

S REM ' de 



I conimercu 

.ibee s*ns 1* consentetne 



40 PL0T5> 12, "fiPPt 



! GOSUB2000.&£TR*.GOTai008'MENU 



I touche 

e Hour avoir les 

55 PL0T12, 13,"temPs intermedUires. 

60 GETR*.DOKE»276.0 

100 GOSUB880e.GOSUBe080 IFQMTHENGO 
SUB200 

110 IFOQ-lTHENOQ^e GOSUB?000 

120 IFQ-1THENGOSUB208 

130 IFPEEK< 11288 >#36THEN100 

140 IFPEEK< *20B !>=tR9THEN9000 

150 NT-NT* 1 

160 IFNT«20THENPRINTCHR*C 30). PRINT. 
NT-B 

170 W«W*l'PRINT"TemPS "jUj-. ";HE«' 
GOTO 10© 

180 GOTO108 

199 REM 

200 CLS ■ GOSUB5008 

210 PRINTCHR*(30>"T»mP* intermedial 
res" 'PRINT" 

220 0-0: RETURN 

300 REM HORLOGE 

318 C*-" HORLOGE" . 00=1 . YY«20'C-16. GO 
3065000 

320 PAPER0 ' PRINTCHR*C 30 >. CHR*C 14>> ■ 
F0RY-22T026 ' PLOT30 . Y, 16 > NEXT 

325 PRINT i PRINT ' PRINT 'PRINT i PRINT 'P 
RINT'G0SUB6BBB 

330 PRINTSPC<!12)CHR*12?V'H"CHR»<27> 
"JMISE A L'HEURE 

335 PRINTSPCC12X;Hft*C27)"A' , CHR*<27i 
"JMISE A L'HEURE 

349 PRINT' PRINT. PRINT" Indiquez 

I'heure exact* (hh,mi>mn> 

343 PRINT" Puis,* U seconde Pres, 
aPPuvez sur". PRINT. PRINTSPCC 16)"RETU 
RN 



351 PL0TX,25,STR*<PvT>>'NEXT 
332 HE=1009*-R'. 1 .'*100*R(2>+10*R(3)+R 
< 4 > ■ HE*=STR*< HE ) ' L-LENC HE* >-l 

353 HH=10*R(1)+RC2>MN-18*R<3HRC4) 
i HHS=STR*( HH ) i MN*«STR*< MN ) 

354 HH«=MID*t:HH*,2:>.MN*-MID«<MN*,2> 

355 IFVALf HH*>< 10THENHH*-"0"+HH* ■ IF 
VWL( HH* >< 1 THENHH*= "0" +HH* 

356 IFVHL- MN* X 18THENMN*-"0"+MN*< IF 



VHLt MN* >< 1THENMN*="8"+MN* 

357 IFHH*-"800"THENHH*-"00" 

358 IFMN*="000"THENMW="B0" 

339 IFHH>240RMN >59TH£N365ELSEPL0T 1 2 
.25," 
360 PL0T12,25,HH*'PL0T17.25,MN* 

364 PL0T2, 15, 1 'PL0T3. 13, 12G0T0371 

365 PL0T2. 17, 1 > PL0T3, 17, 12.PL0T1B, 1 
7, "ERREUR. . .RECOKMENCEZ" i RESTORE 'GOT 
0345 

370 PATAU, 13. 16, 18 

371 A-48 ' REPEAT PL0T22, 25, A ■■ A=A+ 1 1 1 
FA=58THENA-48 

373 UNTILPEEK((I203)=#HF:DOK.E»276,0 
PL0T22, 25,43 

330 GOSUB8000 IFRP=3THENRETURN 

382 IFGQ-1THENQQ=0ELSE489 

365 FORI-0TO8PRINTCHR*(11>CHR*'CI4) 
i .NEXTGOSUB7B00 

480 IFPEEKC »203 .'■=*A9THEN9000£LSE380 

500 REM ALARMES 

519 C*="flLARM£S" i 14=0 CLS SOSUB5B08 

520 PRINT' PRINT ' PRINT ■ PRINT .PRINT -P 
RINT 'PRINT. PRINT 'PRINT. PRINT"Introdu. 
isez I'heiire des Hlarmes ■ 

525 PRINTSPC(13)"':Ma!(imum = 10 AUr 

330 PRINT. PRINT. PRINT. PRINTSPCC 4 )"h 
n-n-.PRINTSPC(4)" " 

548 W-W+I' P0KE618.il 

550 PRINTSPCO,', ■ A*<W)="" = F0RI = 1T04 

560 GETR»:IFP£EKC«35K49rjRPEtM #i^ ■ 
>57TNEN568 

570 fl*<W>-A*CW)+R*'PRINTR*; • IFI=2TH 
ENPRINT" "; 

580 NEXTAH*CW>-LEFT*CA*CH>,2>.AM*( 
W>=PIWTS<A*<W),2? 

585 AW U )=VAL( HH*C W J > . ArK W )=VHL( AM* 

tun 

590 IFflHCW»230RAH(WJ>59THENPRINTSP 
CCSV-ERREUR.. .REi:.CiMriEHLE^"ELSE680 
5*1 PRINTCHRS< 11 >. G0T0558 
690 PRINTSPC(5)"AUTRE ALARME ? CO/N 

605 GETR* i IFR*=' , ,, THENW=H+1 i GOTO550 
610 IFRSO"N"THEN685 

615 uw=wai = i 

620 F0RO= 1 TOM- 1 FOPE=Q+ 1 TOU i IFA*( q ; 
-MX E >THEW*K -•=" " ■■ ww=uw-l 
-;;'5 MEKT.NEXT 

630 Fi3RI = lT0U IFA»<I)=""THENNEXT 
640 B*CII>=flS( I ) = 11 = 11*1 'NEXT 
656 FORI = lTOII-l'B<I)=VftLCB*!;i>).NE 



"'FORI-lTON'RHWCO-LEFTKmd,^, 

713 AM*< I >=RIGHT*< A*( I >,2> 
.^ PL0T il5 +1 'l 7l PL0T3,5*I,AH*<I>.p 

WHx2fia? ,Mri, * , '* , « i 

730 YY-21'GOSUB8000.GOSUB708e 
740 IFPEEKC#208)-«A3THEN9000ELSEGOS 
068900 i G0T074B 

999 REM PIENU 

1000 CLS.PLOT10,8,2e>PLOT26,e,16.PL 
□T10, 16,20' PL0T26, 16, 16 

1005 FORY-9TOI3.PLOT10,Y,20PLOT11, 
Y,17:PL0T23,Y,2e'PLQT26,Y,16.NEXT 
1010 PLOT12,10,"1 CHRONO 

1013 PL0T12,12,"2 HORLOCE 

1016 PL0T12,14,"3 HLARHE 

ie20 GETRP*-RP-VflLCRP*)IFRP<10RRP> 
3THEN1 820ELSECLS ' PAPERB i ONRPGOT029, 3 
10,310 

1999 REM PRESENTATION 

2000 P0KE»26F,27 P0KEt26D,I28.CLS.P 
0KEt26£>, 88 - PAPERB i P0KE-26F , 23 i P0KE»2 
6A, 18 

20B2 P0KEH26C, 2 'CLS ■ PRINTCHR*C 20 ) ■■ P 
OKE#20C,233 

2803 Q-l't4-l 'P-l 

2009 PL0T13,7,1'PL0T14,7,14'PL0T13, 
8,1'PL0T14,8,14'F0RY-7T06'PL0T24,Y,1 
2 

2B10 PLOT23,Y-,8'PL0T26,Y,2.NEXT 

0RY-6TO9>PL0Tll,Y,42'PLOT27.Y,42'NEX 

2012 PLOTll,10,"*««****t****«*» 

2013 FORY-7T08■PLOT1^,Y,' , OR1C-TIME'■ 
'NEXT 

2020 PL0T6,17,"CoPMri9bt Jc-el 8AMBU 
IS 1984" 

2030 PL0Tl,21,6'PL0T2,21,"APPU,*«z s 
u.r une touche Po«r contlnuer 

2840 IFWOITHENRETURN 

2850 GETR*. CLS 'M-0 

2060 PRINT'PRINT'PRINTSPCCSy'Ce Pf-O 
9r-am«e vous Propose ' 

2863 PRINTSPCC 3 >" ; 




XT 
655 N=1I-1 



669 F0RI=1T0N.M=B<I> K=I . FORJ-ITON. 
IFBi JKMTHENK'-J'M-SU) 
678 NEXT.B=B<I>.B':l)=B(K).B(K)-B.NE 

680 FORI = lTON.fl*< I )-STR*CB< I ?>'A*( I 
>-RIGHT*( R*< I >, LENC A*C I ) >-l ) 
685 IFLEN< R*( I ) X >4THEN690ELSE7B0 

699 REPEAT 'A«< I )" ,, ,, +A»U ) ■ UNTILLEN 
CA*C 1)3-4 

700 NEXTP0KE618,ie 

705 C*=«"ALARMES".U-0'CLS.GOSUB5000 
GOSU6320 i CL5 i GOSUB5080 ' GOSU86990 

707 PL0T1,4,17'PL0T11,4-16.PL0T1,5, 
17.PL0T11,5,16 

710 PLOTS, 4,"Alarr«es ,, .PL0T3,3," 



2070 PRINT'PRINT'PRINT"* Urt Chrono 
metre au 1^188 de seconde."; 

2073 PRlNT"avec stockase des ' temPs 

interme-'* PRINT"dl« ires'. 

2885 PRINT. PRINT. PRINT"* Une Horlo 
9e, e9a lenient Precise au" 

2090 PRINT"1^100 de seconde. 

2895 PRINT. PRINT. PRINT"* Une Possi 
bilite d'une ou Plusleurs" 

2100 PRINT"HUrmes,1ue ous Pourrei 

2195 PR I NT "uti User Pour conmander 
des aPPareils" 

2118 PRINT"exterieurs,ou Plus simPl 
ement conune" 

2115 PRINT"rewei I, aide-memoire...." 

212Q G0SUB283Q ■ RETURN 

4999 REM TITRE 

5009 PL0T27, 1,3'PL0T28.1, 12.PL0T29- 
1,14'PLOT30,1.C* 

5001 PL0T27,2,3.PL0T28,2, 12PL0T29, 
2,14'PLOT30,2,C* 

5082 RETURN 

5999 REM HORLOGE 



6009 F0RY=22T026 ■ PLOTS, Y , 28 . PL0T39, 
Y, 16. NEXT 
6091 PL0T13,23,"H mi sec"PL0T13 

,25, "8 B 

6WZ RETURN 

6999 REM ARRET 

7009 M*="flrret du Programme 
.ESC 

7085 PL0T3.YY- 19. PLOT4,YY,0. PLOTS, Y 
Y,M*PL0T37,YY,C 

7819. RETURN 

7499 REM ** SxP TIMING ** 

3899 SEC=>:: #FFFF-[-EEK.. #276 - - - 100 i SEC 
-<INKSEC*180>VI99 

S905 IFRP01THENSEC=INKSEC) 

8910 IFSEO*69THENGOSUB8500 

3913 SEC*=STR*< SEC ) MM«=STR*( MN J = W 
*"STR*<. HH ) 

8816 IFRP=1THEN8839 

9020 HH*=MI0*CHH*,2> MN*=MID*':MN*,; 

8022 IFLEN<MN*X>2THENMN»="0"*MN* 

9924 IFLEN(HH*X>2THENHH*="0"*HH* 

9039 HE*-HH*+" "+MN**" "+SEC*'HE 
=VAL(HE*> 

9032 IFRP-3THENHfl*»HH*+MN* 

8B33 PL0712,25,HE*' IFRP-3THENG0SU68 
IBB 

3037 RETURN 

9846 PL0T12,25.HE*'RETURN 

9108 FORI-PTON. IFHA*-=A*( I 1THEN8280E 
LSENEXT 

8110 RETURN 

9209 ONIGQSUB18008. 18108, 10200, 1839 
9,18409,10388,10680,10789, 10980, 109Q 


8210 RETURN' 'RETOUR 8058 

B499 REM SEO-60 

8500 OOKE*276,0'MN-MN+1 'N-N*I'SEC=0 

8310 PL0T23,25," 

8528 IFMN-60THENMN-0HH-HH+1 

8338 RETURN 

9808 REM FIN 

9018 M*-" Pro9rai*me stoPPe 

"■GOSUB7003 

9820 P0KE619,11END 

19080 REM ALARME 1 

18010 PING.P-P*1'IFP=NTMENP-1 

10020 RETURN 

10100 REM ALARME 2 

10118 ZHP'P-P+WFP-NTHENP-1 

10199 RETURN 

10208 REM ALARME 3 

10299 RETURN 

10300 REM ALARME 4 

10399 RETURN 

10400 REM ALARME 3 
10499 RETURN 
10588 REM ALARMS 6 
18599 RETURN 
10608 REM ALARME 7 

10699 RETURN 

10700 REM ALARME 8 
18799 RETURN 
10890 REM ALARME 9 
1B999 RETURN 

10900 REM ALARME 10 

10999 RETURN ( 



CASSE-TETE 
AU CARRE 




COMMODORE64 



Ce jeu ne devrait pas decevoir les lans de casse-tetes de temps. Une routine en langage machine lui donne 

diaboliques, il consiste a retrouver les couleurs initiales une grande capacite, de plus le jeu est sonore 

d un carre de 5 X 5 cases en un minimum de coups et j pjerre REDOUTE 

78 FGR14TOL73 ftsnTf pr.PAD.1 P trtt ^t ^?, '"' 137 RESTORE 780 P0KE54276, 16 RETURN 

a^^ f|flKaSRB ' s& " | S^iRSESSTui S K^BKSBSSKiBS H " , - I ----" i - ST 

110 FQftX^T04 ftEADP FOCEM*236»Y*X.P: 520 NEXT?! 73 '* PWCE54272 ' tf P<*E54276, 1? FORT^TOSe. 310 WSUB709 

P0KEM+16.256*V+;;,P NEXTX,V -» ££lLll 7l - 1t :-u*u., ™? PeiNT"*»B**onWB ftPPUVEZ SI* 1 OU 2 POUR REJOUER" 0*="" 

11^ ilETQ* IFG'*=" "GOT011S l^t ™E54£76, 16 H-N+l 859 GET&t IFu* ■;, "1 'HHIiOi . 

29 PRINTS mraPtr EO=1157 2*2 S " N * INTlT I''l«>-N*-STR*<S>:N0-PE£K(l499)-48 360 80T0SB 

121 FDRX=0TO4^«€O+120*K 545 M4 » V «- ,; PI™T*(N*, 1 >> H3.(VAL(RI0HT*fNf ,2) >-N4V10 900 P=INT<RNDt9)*4*3> 

122 FORv4tOI4:P0KEE+V lSa-p«EF+4B+V l«» NFsn-v » ^ " 2 = , '-'« l - l ^"--HT*.N*,3>^-N3*10-N4)/ie0 940 CiNRriOTrj»45, 345,565, 970. 975,970 
23 PORE 11 : ■ '' J ' N: ^ ;; " l ' P! *""" "■■ -N;*100-N3*18~N4V1000 945 QOSUB540. RETURN 

\ll [^i&£»35g& "^D^^f^rSSSiBf U ^ poTI.^I'nT;^ W - E1 «6.N3*4 B . P 0KE1497,N2*4 8 - 959 ^KE f? ,2 2 

125 P0KE1274,6-P»£55546.12 P0KE1634.6 P0KE553B6, 12 55S IFnV-N^^OSsI -n ^iS 1 ' U ' SVS49;W9 <**"*** 

IIS Rl^ 27 N 5 ,??Ar?^?^ ,2P0KE1633 ' S5:P0KE559e7 -- ^ i^^KE54272. 1 47:POK E5 «76,u : FORT=0Tai0e » ^?^ffi= 

140 N=9984W-17 G0SUB278 :GOSJB400 5 ?& PQKE5427e 16 SS pS^J'I* 60 ™™ 8 

iSpSks^'ss;:^.^^^ sirSiF _ i ™W™ —'=■=■«— 

IS "l^elsM.. « pr.ht-.»»,„u.p reioute 1S84- ..» Jjrra. ui|e, ■« .»,»■ iMl:]!;^:^:^ I : S; I:g;| : |J:f5;g 

258 ONR60T026e.2».38e,31B,32e,278 gi RRINTTmS li-SfSSfi « Ssi^'.t «?- 'J 5 ;?!'.i?'- 'K'288'2'7- 1M.6. 177,25. . 168. 1 
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SfS S^MPN y/S49309 C3OSUB500 62e prjut- les COULEURS SONT MELflNGEES AU DEBUT." 1189 DRTA252, 198.252.292.203,243 .IU 252 165 254 145 25? W^, ' 
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US ™ T f J g 2 - aS!8V84 » ,5 ' owu «" SS SJSh" ' ■ N,VEflu l 2 = M1VERU 2 Hi S9»:S?«:J£i^Si^Si£Sii S&j? ■«='»'=«'» 

' M Kfc"-*W ^ 793 FORI^OTOa READHF PEftUBF 2663 DRTA14 . 14 . 1 . 8 .S. 14 ■ 14 . 1 8, 3.. 1 . 1 a iTlTiM, 1.5,5,4,4. 1 ,5,5 % 



VAISSEAU 6 



En 2099 vous et votre Equipage etes pris dans une 
pluie de meteorites. Arriverez-vous a remplir votre mis- 
sion, sachant qu' apres les meteorites vous devez 
poser votre vaisseau sur une base pratiquement inac- 
cessible. 

Gilbert STENER 



ERRATUM sur Tl 99 4A B.E. 


INTERCEPTOR dun° 58 






n'avez certainement pas 


dti intercepter grand 


chose 


avec 


ce programme. Er 




il manque la fin de Ie 


ligne 


480: 






480. 


. F2(I),V2). 





TI99 BASIC ETENDU 

r 




CALL BANANE 



Nous recevons souvent des 
courriers de lecteurs qui 
viennent de demarrer avec Ie 
basic etendu et qui s'inquie- 
tenl de voir des sous-pro- 
grammes qui n'existenl pas 
dans leur manuel. C'etait Ie 
cas il y a deux semaines 
avec un Call PLOT que cer- 
tains ont cherche en vain. 
Sachez, novice que vous 
etes, que Ie basic etendu du 
Texas est un des plus beaux 
qui son et que Ton peut creer 
ses propres sous-program- 
mes et les appeler du nom 
que Ton veut. Par exemple, 



un SUB BANANE peut etre 
defini en tin de programme 
avec les instructions SUB 
BANANE et SUB END, si ce 
programme dessine une ba- 
nane, il suffira ensuite de 
faire CALL BANANE n'im* 
porte oil dans Ie programme 
pour voir apparaitre ce su- 
perbe fruit tout iaune sur 
votre ecran. Vous trouverez 
la facon de faire vos propres 
sous-programmes darts Ie 
manuel Trancais a la page 
180 et suivantes traitant de 
SUB. SUBEND et SUBEXIT. 



30 REM ........ 

60 REM *6*CH5.r. 

70 REM ........ 

REM »TEL«(E 



790 CALL SPRITE! 

BOO CALL SPRITE! 

910 CALL SPRITE! 

B20 CALL J0YSTI1 

S30 SCl=SCl-20 1 



',92,9,172,220,4tO,,'i 
>0, 92, 13,190,22.01 
DISPLAY ATtI, 14)1*1 



i.j--> 



90 F 



HIONV1LLE" 



100 REM«*< 

110 REM ....... .».«»..•*.•*. 

120 REM.. «•»■ *37 1 OO.... * • ... 

140 REM. .»P0UR.« «T I - 99/ 4 A»* • 

iIC».ETENDU.»" 



850 CALL S0UNDI-1OOC 

3,-B,0) 

B60 CALL M0TI0N(4A,- 

B70 CALL COINC1ALL.C 



B9C1 CALL CDINCIALL.I 



!, 440, 23, 880,1 



170 f 



I CALL SCREEN!2)i 



80 REM....... 

190 CALL CLEAR 

MAGNIFV(3) 

200 FOR 1-1 TO 12 it CALL COLOR C 

210 CALL CARRACTERE 
220 ' REGLE 

230 CALL 5PRITE!41,10B, 3*169, 123: 
240 CALL SPRITE(42, 92,4, 96, 50,-1! 
230 CALL SPR1TE(43,92,7,96, 100.-: 
260 CALL SPRITEl»4,92, 11,96, 130, 
270 CALL BPRITE!45, 92, 13,96,200,- 
2B0 COLL SPRITE(46,92,12,96,230,- 
290 DISPLAY AT<2,9)l :, VAISSEAU 'G*" 
300 DISPLAY AT<6,2):"1L VOUS 



900 IF T0UO83 THEN 630 
910 DIR=4 

920 CALL HCHAR 116,3, 79) 
930 CALL HCHARIXS.YS, 138) 



,13,440,23,880,1 



10 DISPLAY t 



TRAVER 
S,2):"UN CHAMP D'ASTEROID 



320 DISPLAY AT(10,2)i' 



1000 CALL H0TION(4A,-Y»3,O) 
1010 CALL HOTI0N(47,0,-INT(RND« 
1020 CALL COINC(ALL,C)n IF C-- 1 

1040 CALL C0INC(ALL,O:i IF C--1 



330 DISPLAY 
TRAVERSE" 




12,2) 


-"UNE FOIS CE CHAMP 


'lO60 


CALL 
CALL 


M0TI0N<48,0,-I 
COINC(ALL,Cl!I 


<JT(RND.45>> 
IF C— 1 THEN 


340 DISPLAY 
330 DISPLAY 




14,2) 


■"VOUS DEVEZ DETRUIR 


1O70 


CALL 


MOTION (49, 0,-1 


*T!RND.30)) 




16,21 


I "3 VAISSEAUX ENNEMI 


1080 


CALL 


C0INC<ALL,C>1 : 


IF C— 1 THEN 


360 DISPLAY 
MJ "B*" 




1B,?I 


■"POUR CHAOUE VAISSE 


1100 


COLL 


MOTI0N(410,O,- 


INTIRND.39)) 










CALL 


MCTI0N(4A,-Y.3 


0) 


MISSILES" 








60 
1130 

1150 






IF C- 1 THEN 


380 DISPLAY AT 
E TOUCHE" 
390 CALL KEVIO 
400 CALL CLEAR 


24,2] 

>:,S) 


I IF S-0 THEN 390 


GOTO 

!C □ 
!E X 

CALL 


L L I B I N 
P L S ION 




4IO DISPLAY 
AUX" 

420 DISPLAY 
430 DISPLAY 




2,21i 


"UNE FOIS LES VAISSE 


1170 


DELSPRI TE! 420, 


44, 45, 46,47, • 




4,2) 


"DETRUITS" 

"VOUS DEVEZ ATTERRIR 


lieo 


CALL 


ALL H0TI0N(4A, 
P0SITI0N!4A,XA 


,YA)n FOR I- 



440 DISPLAY AT(B,2):"SUR UNE BASE" 

430 DISPLAY AT<10,2)|"MOB1LE" 

460 DISPLAY ATfia, 101: ■'BONNE CHANCE" 

470 DISPLAY AT!24,2)BEEPl"APPUYEZ SUR UN 

E TOUCHE" 

480 CALL KEY!0,K,5)I1 IF S-0 THEN 480 

490 ! DEMONSTRATION D"UN ATTERRISSA6E PAR 



3O0 FDR 1-1 TO 6 :i CALL DELSPRI 


EIIIIiJ 


NEXT I 




310 CALL ETOILE 




520 DISPLAY ATU,4)l"TI-99/4A ET 




0TA6E"i i" AUTOMATIQUE" 




330 RANDOMIZE 




340 CALL MAGNIFY (4) 








560 DISPLAY AT(l,4):"TI-99/4A ET 


SON PIL 


OTAGE"! I" AUTOMATIOUE" 




370 CALL MOTION!41,INT(RND.10),I 


•JTIRND.3 


3BO CALLP0SITlONI»l,X,V)ll IF X 


>lSO THE 


N 620 




=90 CALL 50UNDI-1000, 110,10,440, 




5,-2,0) 




600 DISPLAY AT!l,4>i" 





610 GOTO 560 

620 CALL MOTIQN<41,0,0> 

630 DISPLAY AT(12,4)l"ATTERRISSAGE REUSS 



CALL PATTERN14A.1 
1190 CALL SOUND(-1000,-5, I, HO, IO-I) 
1200 FOR E-l TO 10 il NEXT E II CALL PAT 
TERNI4A, 124):: FOR E-l TO 10 i : NEXT E 
1210 CALL CDLOfi I HA, 5-1 > : : NEXT I 
1220 DISPLAY AT!12,3)t"C L L I S I O N 
1230 A-A-l i: IF A>3 THEN 1270 
1240 FOR 1=1 TO 1000 ii NEXT I li CALL C 

1250 CALL ETOILE 

1260 GOTO 740 

1270 CALL CLEAR I: CALL DELSPRI TE ! ALL) 

1280 CALL CLEAR II CALL SCREENI2) 

1290 DISPLAY AT(12,l)i-M I S S I O N E 

C H D U E E" 

1300 FOR 1-1 TO 100O ■: NEXT I 

1310 CALL FIN 

1320 GOTO 700 

1330 DISPLAY AT!12,2):"M 1 S S I N R 

E U S 3 I" :i FOR 1-1 TO 900 n NEXT 1 

1340 CALL DEL3PRITE1ALL) 

1330 CALL ETOILE 

1360 !DEUXIEME PARTIE DO PROGRAMME 

1380 RANDOMIZE 

1390 CALL HCHAR124, 1,38,32) 

14O0 CALL C0L0R(3, 16,3,4,16,3) 

1410 CALL SPRITE14A, 104,5,96,30) 

1420 CALL SPRITE<»4,96,8,30,220) 

1430 FOR 1-10 TO 28 

1440 CALL SPRITE <»I, 112, 7, 170, 125) ■: NEX 

1430 CALL L0CATE!410, 170,30,411, 170,60,4 



660 


DISP 






mus LES COMMAND 


670 


DISPLAY AT 124,1 


iiEEi- 


"PRESSEZ 


UNE TO 


UCHE" 












CALL 


KEY<0,K,S) 


1 IF 


S-0 THEN 


680 




IPREM1ERE PARTIE DU 


PROGRAMME 


ASTBRO 


IDE 


5C-- 


000 








710 


CALL 










720 












730 


CALL 
CALL 


CARRACTERE 










CALL 


COLOR!!, 16 


3,4, 






760 




"VAlSSEAWiA 






CALL 


SPRITE (4A, 




96,30) 




7 BO 


CALL 


SPRITE (44, 


>2,4. 


30,220,4" 




9,220, Mi 


92, 6, 8S, 220) 







460 CALL L0CATE!413, 170, 120,414,170, 150 

•13,170, 1BO, 416, 170,210) 

470 CALL L0CATEC417, 170, 103,418,170,135 



IBO CALL M0TI0N!44, INTIRND.30), 

»90 FOR 1=10 TO 28 :■ CALL MOTI 

5) I i NEXT I 

500 CALL JOYST(l,X,Y)t: CALL KE 

: IF S-16 THEN 1590 

510 CALL M0TI0NI44, INTIRND.30), 

520 CALL M0TION14A.-Y.3,! 

330 CALL CDINC(44,#5,B,C 



IF E— 1 THE 



0M>12O.THEN CALL M0T10NI44,-INT(RND«33 



1=30 CALL SOUNDi-2000, 140,20,220,10, 110, 

20, -7.10) 

1560 DISPLAY AT(1, 1) I ".VAIBSEAU-IA 

1570 DISPLAY AT(l,l4)i"MISSILES"IE 

1580 GOTO 1500 

1590 CALL POSITI0NI4A.WE.SD) 

1600 E-E+l it IF E>21 THEN 1760 

1610 CALL MOTI0N(4A,-Y.3,0> 

1620 CALL SPRITE!45,100,11,UE,SD,0,90> 

1630 FOR 1-1 TO 3 ■: CALL COINC 145, 44. a. 

Oil IF C— 1 THEN 1680 

1640 NEXT I 

1650 FOR 1-1 TO 7 ii CALL COINC! 44, 43,6, 

Oil IF C— 1 THEN 1670 

1660 NEXT I II CALL DELSPRITE(43>i> GOTO 

1300 
1670 CALL DELBPRITE(M) 
1680 CALL MOTI0N(4A,0,O) 

1690 FOR 1-1 TO 10 ii CALL C0LDR<#4, 1*3) 
ii CALL PATTERNIM.13 " 
1700 CALL SOUND (-100C 



-S.OIii NEX 



1710 CALL PATTERN(44.96) 

1720 M-M.l ii IF H-3 THEN 1940 

1730 'CHANGEMENT DE COULEUR DO VAIISEAU 

ENNEMI 

1740 CALL C0L0R(44,8+M> 

1750 GOTO 1300 

1760 CALL MOTION!.*, 0,0, 4A, 0,01 

1770 iCOLLISION DU VAIS5EAU ENNEMI AVEC 

LE VAISSEAU 'B' 

17B0 CALL POBITI0N(4A,ER,DF):i CALL LOCA 

TEt»4,ER,220) 

I.1.3)ii FOR B-l TO 3 ii NEXT B 

1B10 CALL C0INCI4A, 44,10,0:1 IF C— .1 TH 

EN 1830 

1820 NEXT 1 

1830 CALL M0TI0N(4A,0,0,44,0,0) . 

1840 CALL DELSPRITE!44)I1 CALL PATTERNtt 



IF A>3 THEN ■ 



1920 CALL CLEAR 
1930 CALL FIN 

1940 CALL CLEAR ii CALL DELSPRI TE (ALL) 

1930 DISPLAY AT(12,3)i"MISSI0N ACCDMPL 

IE" 

1960 DISPLAY AT(16,7)l"A LA SUIVANTE" 

1970 FOR 1-1 TO 100O ii NEXT I 

19BO CALL CLEAR i: CALL DELSPRITE(ALL) 

1990 CALL CARRACTERE 

2000 CALL ETOILE 

2010 iTROISIEME PARTIE DU PRBRAMME- 

2020 CALL SCREEN (2) 

2030 CALL HCHAR!24, 1,58,32) 

2040 CALL CDL0RI3, 16,3,4, 16,3) 

2030 DISPLAY ATfl,l)l"VAISSEAU"(A 

2060 SC-1O00 

2070 CALL SPRITE(4A,108, 7, 30,123) 

20BO CALL SPRITEI44, 116,9, 173.240,0, INTI 

RND*30) ) 

2090 CALL J0YST(1,X,Y) 

2100 CALL M0TI0N(4A,-Y*2,3,X.1.3) 

2110 SC-SC-30 ti DISPLAY AT(l,14)i"TEMPS 

"ISC it IF SC<-0 THEN 2300 

2120 CALL POSITI0N(4A,XP,YPlll IF YPM63 

THEN 2330 
2130 CALL C0INC(4A,44,7,Oli IF C— 1 THE 
N 2170 

2140 CALL P0SITION(44,XC,YC)II IF YO200 
THEN CALL M0TI0NI44, 0, -INTIRND.30) 1ELSE 
IF YC<100 THEN CALL MOTI0NI44.O, INT (RND 

430)) 

2150 SOTO 2090 

2160 < 

2170 CALL MOTION<4A,0,0,»4,0,0) 

21B0 FOR 1-110 TO 1000 STEP 15 n CALL S 

DUND(-100,I,0)i! NEXT I 

2190 CALL DELSPRITE(ALL) 

22O0 CALL CLEAR n DISPLAY AT (12, 12) I "B 

R A V O" 

2210 DISPLAY AT(15,3)i"VOUS AVEZ REUSSI 

VOTRE ATTERRISSAOE" 

2220 FOR 1-1 TO 1000 ii NEXT I i i IF A<3 
THEN 700 ELBE CALL FIN 

2230 SCO 

2240 FOR I"l TO 1OO0 Ii NEXT I 

2230 A-A+l II IF A>3 THEN CALL FIN ELSE 

GOTO 1VB0 

2260 CALL CLEAR 

2270 CALL DELSPRITE(ALL) 

22B0 FOR I-1O00 TO 110 STEP -15 n CALL 

SDUND<-100,I,Om NEXT I 

2290 DISPLAY AT ! 12, 12) i "ERREUR DE PILOTA 

BE" 

2300 CALL H0TIQN(4A. 0.0,44,0.0)1! CACL P 



0SITIDN(4A,Z,V)I! IF Z>163 THEN 2330 

2310 IF SCt-O THEN 2330 

2320 BOTO 2300 

2330 CALL DELSPRITE(44) 

2340 CALL MOTION!4A,0,O)ii FOR 1-1 TO B 

2330 CALL PATTERNI4A, 1241:1 FOR E-l TO 1 

O ti NEXT E :i CALL SOUND(-100,-5, B-I , 11 

0,10-1) 

2360 CALL PATTERN(4A,120 

2370 CALL COL0R(«A,S+I> : 

23B0 CALL DELSPRITEIALL); 

050 ELSE CALL FIN 

2390 IDEFINITION DEB CAftRACTERES 

2400 SUB CARRACTERE 

2410 ! VAISSEAU 'G- 

2420 CALL CHAR(lO4,"03041833224282B36018 

07OOOOO00000C020 1 BCC04622 1 E 106 1 BEOOOOOOO 

2430 • VAISSEAU AT 

2440 CALL CHAR(10B,-03041B33224282B3601B 

07030911 1 133C02018CC046221E1061 



I FOR E-l TO 1 



K3 THEN 2 



24SO ! - 

2460 CALL CHAR(112,"000O0OOOOOQlO2O4O912 

2448840A7 1 80O0OOO0O4OA16MaS202924947 1 1 28 

2470 1 ASTERRDIDE 

2480 CALL CHAR(92, ■0O01O2041A2348eO9048B 

6B 1 34 1 000028060 1 0*828 14B44S2B44BA1224409 

060* ) 

2490 rvAISSEAU ENNEMI 

2300 CALL CHAR 196, -OO0OOOOO00OF34CB641FO 

0000000000000042C7CS406330 1 07FE0OOOOOOOO 



2310 : MISSILE 

2320 CALL CHARdOO, 

1 2 1 F 1 2 244O00000000OOO00OO000O0OOOOOOOOO0 

0000") 

2330 ' BASE MOBI 

2340 CALL CHAR(116,-OOOOOOOOO0O0OO0OFFFF 

FFFFFFFFFFFFOOOOOOOOOOOOOOOOFFFFFFFFFFFF 

FFFF-1 

2530 ! PET EXPLOSION 

2360 CALL CHAR(120, "0000002001041002200* 

OOOBO 220000000000004 4O00 1 040OB4O 1 0004008 

2570 ! 8RD EXPLOSION 

23BO CALL CHAR(124,"800l200OOB41OAO0000A 
)0 1 BOO 1 00048O 1 0O25OBO0O5O02 1 O8O04 



',5B,RPT«CF-, 

2610 SUBEND 

2620 ! DECORATION FOND 

2630 SUB ETOILE 

2640 CALL CLEAR ■: CALL SCREEN (2) 

2650 CALL DELSPRITE<ALL> 



2670 FOR 1-1 



: CALL COLOR (1,16,1 



I 0-INT(RND.22)< 



26S0 RANDOMIZE 
2690 FOR 1-1 Ti 

P-INT(RND*31)*1 
2700 CALL HCHAR<Q,P,9!> 
2710 NEXT I 
2720 SUBEND 

ZT30 ! PARTIE TERMINEE 
2740 SUB FIN 
2730 'POUR REJOUER 
2760 CALL CLEAR 
2770 CALL DELBPRITE(ALL) 
2780 CALL SCREEN (2) 

2790 FOR 1*1 TO 12 II CALL COLQRd, 16, 1) 
2800 NEXT I 

2810 CALL COLORIO, 16, 1) 

2820 CALL 5PRITE(41,?2,8,30,30,42,92,9,1 
0, BO, 43, 92, 10,30,130) 
2830 CALL SPRITE144, 92, 11, 10, 180,43,92,1 



3,230) 
2B40 CALL SPRITE(46, 108, 16, 
4,5,113,30) 
2B50 CALL SPRITE(48,96.7,8O,230,49,96, 11 



,133,47,10 



i -vouLEZ-vous REjoue 



2880 DISPLAY t 

Z" 

2B90 DISPLAY AT ( 12,2) i "1-POUR OUI" 

2900 DISPLAY ATdB^H'^-POUR NON" 

2410 ACCEPT AT(13,13)BEEPiY 

2920 CALL DELSPRITEIALL) 

2930 IF Y-49 THEN 700 

2940 SUBEND 

2950 END 




^RASE-MOTTES 

Eleves pilotes en mal de perfectionnement, lentrafne- 
ment intensif ici propose fera de vous un as du man- 
che a balai (et du rase-motte). 

Renaud BOURNAC 

Mode d'emploi : 

Presentation et choix du niveau de difficultes la hauteur des monta- 

gnes est proportionnelle au niveau choisi: vous disposez de 5 vies 

Ce jeu comporte 5 tableaux: 

Tableau 1: Obtenir le maximum de points en rasant le sol le plus "" 

possible. r 

Tableau 2: Detruire la ville en appuyant sur espace. les immeubles 

Elus eleves rapportent plus de points. 
ne bombe touchant une colonne deja detruite bloque le tir 
Tableau 3: Passez dans une grotte sans toucher les parois 
Tableau 4: Identique au premier avec en plus ia difficulte d'eviter les 
meteorites. 

Tableau 5: Eviter cette fois la chute des bombes 
Voire score s'affiche a la fin des 5 tableaux et ie jeu recommence 
avec un niveau de difficulte accru. 
















9Z ■* PROQRAHME * 
















416 QNNG0TO420,430,440,450,452 


100 CLS: DBF inta-z:n-i: console,., o,o: 




DA*(?:BP.-7:G0SUB3O0 




440 N=4:SC=SC*70:GOI0115 


114 GOSUB900 








450 N-5:BR-BR-l:SC-SC»a0-G0T011 








IZ1 IFJ>2QANDN-2THENIZZELSE 


23 


453 LOCATE 3, 1 : PRINT "BONUS: ■ | BO 








1Z4 IFY>1190«J>-117rHENIZSELSE122 


456 LOCATE 5, l:PRINTSTHIN6»:iO 


125 IFD-1THENY-Y+M;GOSU8ZOO 






126 IFD-2THENY'Y-M:G0SUBZ00 




vi»ito5:forvz«itoio:beepvi*v2 i 






461 NEXT: NEXT :n*2: GOTO! 13 


160 G0T0Z50 






200 IFY>31THENY«31 




500 L0CATE0,2:PRINTSTRING«(2O," 






503 L0CATE0,1:INPUT"DIFFICULTE1 








210 IFN-3ANDJ>12THENM-1!LINE 




503 IFM>3THEN500 


-U,9);RETURNELSERETURN 




305 forr-itom:beeph»20o,i:beepo 


Z50 8E£P40,Z:BEEP44,2 






251 BEEP30,2:BEEP33,2 




310 CLS:AB-M IRE TURN 


Z3Z BEEP49,2;BEEP39,2 






233 BEEP39,2; B EEP69,2 




600 I = 10:P-INT(P.NDI0)#101« (X»6> 




Enfin, un bon jeu de strategic sur TI99 et en basic sim- 
ple. Les amateurs daventure et de strategie sont pries 
de taper ce programme et vite ! 

Jean Luc LARTIGUE 



J.ELAC 

DES N AVI RES FOUS 



TI99 BASK SIMPLE' 




10 REM 


TI 99/ 4A 


20 REM 




30 REM 




40 REM 


n.vires fous 







.ISO r 



TO I 



60 REM auteur : 
70 REM jean luc lartigue 
80 REM 23 ru» de boyrie 
90 REM 64000 piu 

00 OPTION BASE 1 

10 RANDOMIZE 

20 DIM P*(6) ,N*(4),EL0(3) 

30 C0X=-3 

40 GO SUB 4360 COULEURS 

50 GOSUB 4440 ASCII 

60 CALL CLEAR 

70 T*=" U ADUT I9B4 PAU JLL" 

BO XT»9 

90 GOSUB 3630 AFF/T» 
200 GOSUB 2250 FIN 
210 REM debut 
220 TOUR=0 
230 NIV-0 
240 DIR=0 
2S0 CALL CLEAR 
260 NBC=10 
270 CAR=11 
2 BO T0R=12 
290 YS~21 
300 XS=21 

310 T*="CARBURANT" 
320 FOR 1-1 TO 9 
330 CALL VCHAR(l-<-12,19,ASC(SEE»(T*,I 

340 NEXT I 

350 RESTORE 4670 

360 FOR 1=1 TO 11 

370 READ A,B,C,D 

3B0 CALL HCHAR(A,B,C,D> 

390 NEXT I 

400 FOR I-U TO 21 

410 CALL HCHAR<I, 21, 138,9) 

420 NEXT I 

430 GOSUB 320O EFF/MIRE 

440 FOR 1=17 TO 22 

450 CALL HCHARU.5,104, 11) 

460 NEXT I 

470 T*-" PRDF : TORPILLES" 

480 XT=24 

490 GOSUB 3630 AFF/T* 

500 T*="VENT FDRCE" 

510 FOR 1=1 TO 10 

520 CALL VCHAfi(9+I,31, ASC(SEB»(T*, I, 

1)) > 

530 NEXT I 

540 CALL VCHARU3, 17,61, 10) 

550 CALL HCHAR(23,20.63, 12) 

560 GOSUB 4230 DEP LA CEMENT 

570 GOSUB 3650 PLONBE 

580 CALL HCHARUO, 18,46) 

590 CALL HCHAR(11,17,46) 

600 CALL HCHARU1, 19,46) 

610 CALL HCHAR(XS,YS. 137) 

620 GOSUB 1050 POUR/VERIF 

630 CALL C0L0RI2, 11, 1) 

640 CALL KEYIO,TDU,ET) 

650 CALL CDLQR(2,1,1) 

660 IF ET=0 THEN 630 

670 IF TOR=0 THEN 2B70 

680 IF <T0U=S4)+(NIV<3>=-2 THEN 2830 

690 IF TOUR-1 THEN 730 

70O IF (T0U=B2)+(NIV>l)=-2 THEN 3670 

710 IF (T0U-B0)+INIV<6)<>-2 THEN 730 

720 GOSUB 3850 PLONBEE 

730 IF CAR>=1 THEN 7B0 

740 XT=9 

750 T»=" PANNE DE CARBURANT" 

760 GOSUB 3540 AFF/T* 

770 BOTD 2250 FIN 

780 IF T0UO69 THEN 820 

790 DIR=1 

BOO CALL HCHAR(16,3,7B) 

810 GOTO 930 

B20 IF T0UO6B THEN 860 

830 DIR-2 

S40 CALL HCHARU6,3,69) 

850 BOTD 930 

B60 IF T0UOB8 THEN 900 

B70 DIR-3 

8B0 CALL HCHAR<16,3,B3) 

890 GOTO 930 

900 IF T0U<>83 THEN 630 

910 DIR-4 

920 CALL HCHAR(16,3,79> 

930 CALL HCHAR<XS,YS, 138) 

940 CAR=CAR-.2 

950 CALL HCHAR(13+INT(CAR>, 17,32) 

960 ON DIR GOTO 970,990,1010,1030 

970 XS=XS-1-(XB-1<11> 

9B0 GOTO 1230 

990 Y5=YS+1+(YS+1>29) 

1000 BOTD 1230 

1010 XS=XS+H-(XS+1>21) 

1020 BOTO 1230 

1030 YS=YS-1-!YB-1<21) 

1040 GOTO 1230 

1050 REM veri*. colision 

1060 IF (X5=XC(1) )*(Y5-YC(1>) >-2 THE 

N 1180 

1070 IF NIV03 THEN 11B0 

1080 CALL VCHAR(13,17,61,10) 

1090 CAR=U 

1100 T«s ,, RAVITAILi.E^BNT EFFECTUE" 

1120 GOSUB 3540 AFF/T* 
1130 FOR 1=1 TO 15 

1140 CALL S0UND(-IO,200O*(I/5),I/4) 
lll50 NEXT I 



190 IF (XS=XC(I) )+(YS=YC(I) >+CNIV>3 
1—3 THEN 3250 

1200 IF (XS-XC(I))+(YS=YC(I) )+(NIV<4 
)=-3 THEN 3360 
1210 NEXT I 
1220 RETURN 

1230 CALL GCHAR(XS,YS,GGG) 
1240 IF GGG=134> THEN 1260 
1250 GGB=137 

1260 CALL HCHAR<XS,Y5,BGG> 
1270 REM visualisation 
1280 CX-0 
1290 CY=0 

1300 ON DIR BOTO 1310,1330,1330,1370 
1310 CX=-1 
1320 GOTO 13BO 
1330 CY-1 
1340 GOTO 13S0 
1350 CX-1 
1360 GOTO 13B0 
1370 CY=-1 
13B0 FOR 1=1 TO 3 
1390 COX-CXhU 
14O0 COY=CY*I 

1410 CALL GCHAR(XS+COX,YS+C0Y,B> 
1420 IF ( 1=1 >♦ (6=32) >-2 THEN 14B0 
1430 T«=" TERRE A L'HORIZON" 
1440 XT=B 

1430 GOSUB 3540 AFF/T* 
1460 T*=" 

1470 GOSUB 3630 AFF/T* 
14B0 IF 0O136 THEN 1520 
1490 ON I GOSUB 4130,4030,3990 
1500 BOSUB 1590 BDMBARDEMENT 
1510 GOTO 1580 

1520 NEXT I 

1530 GOSUB 32O0 EFF/MIRE 

1540 FOR 1-3 TO 7 

1550 CALL HCHAR1I, 1,112,23) 

1560 NEXT I 

1570 CX=2 

15B0 GOTO 620 POUR/VERIF 

1590 REM bombardement 

1600 IF NIV>2 THEN 2070 

1610 XB=5 

1620 YB=28 

1630 AN6--7 

1640 GOSUB 2OB0 AFF/5-M 

1650 CALL KEY(0,TOUC,ET1 

1660 IF T0UC=B4 THEN 2B30 

1670 IF T0UR-.1 THEN 1700 

16B0 IF TOUCOBO THEN 1700 

1690 GOSUB 3850 PLONBEE 

1700 FV»( (RND»7)+3)/10 

1710 CALL HCHAR(21,31, ( INT(FV*10> )+4 

a) 

1720 ANG-ANB+.2 

1730 CALL S0UND(-150O,-6, 15) 

1740 XB-XB- (COS CANS) /FV> 

1750 YB=YB-(BIN<AN6>/FV> 

1760 IF (XB>7)*(YB<1)< — 1 THEN 2060 

1770 IF ( (YB<1)+(YB>32)=-1)+(XB>7.9> 
— 1 THEN 2070 

1780 IF (XB+(CQS(ANB)/FV)<1)+(Y8+(5I 
N(AN6)/FV)<1)=-1 THEN 1800 

1790 CALL HCHAR(XB+(COS(ANG)/FV),YB+ 

(SIN(ANG)/FV),112) 

1800 IF (XB<1) + (YB<1) — 1 THEN 2030 

1810 CALL BCHAR(XB,YB,G> 

1820 CALL HCHAR(XB,YB,101> 

1830 IF B0152 THEN 1980 

1840 T*="TOURELLE TOUCHEE NAVIBATION 

1850 XT=B 

1B60 GOSUB 3540 AFF/T* 

1B70 T*»" A LA SURFACE OBLIBATOIRE" 

1B80 XT-9 

1890 GOSUB 3630 AFF/T* 

190O FOR I"l TO 500 

1910 NEXT I 

1920 CALL HCHARIB, 1,32,64) 

1930 T0UR=1 

1940 NIV-0 

1950 CALL COLORU4,l,4> 

1960 BOSUB 38 SO PLONBEE 

1970 BOTO 630 POUR/TOUCHE 

1980 IF G<153 THEN 2050 

1990 T*-"VOIE D'EAU VOUS COULEZ" 

20OO XT-9 

2010 60SUB 3540 AFF/T* 

2020 FOR 1-1 TO 4O0 

2030 NEXT I 

2040 BOTO 2250 POUR/FIN 

2030 60T0 1720 POUR/CALCULS 

2060 CALL HCHAR ( XB+ (C05 (ANB) /FV) ,YB* 

(SIN(ANE)/FV) , 112) 

2070 RETURN 

2080 REM af-f. sous mar-in 

2090 FOR 1-5 TO 7 

2100 CALL HCHARII, 1,112,23) 

2110 NEXT I 

2120 IF CX-2 THEN 2240 

2130 YSM=EL0(ABS(C0X)+AB5(C0Y) ) 

2140 CALL HCHAR(7,VSM+2, 152) 

2150 IF NIV-2 THEN 2240 

2160 CALL HCHAR(7,YSM+1,155,3> 

2170 RESTORE 4690 

21B0 FOR 1=1 TO 5 

2190 READ A,B,C 

2200 CALL HCHAR(A,YSM+B,C> 

2210 NEXT I 

2220 IF T0UR=1 THEN 2240 

2230 CALL HCHAR (5, 2* Y5M, 152) 

2240 RETURN 

2250 REM f 1 n 



2260 CALL HCHAR ( 10, 1 , 32, 480) 

2270 RESTORE 4670 

2280 FOR 1=1 TO 11 

2290 READ A,B,C,D 

2300 CALL HCHAR(A,B,C,D) 

2310 NEXT I 

2320 T»=" LE LAC DES NAVIRES FOUS " 

2330 XT-1 

2340 BOSUB 3630 AFF/T* 

2330 T*="APPUYEZ SUR :" 

2360 XT- 13 

2370 GOSUB 3540 AFF/T* 

2380 T*«" FCTN AID POUR REBLES" 

2390 XT-16 

24O0 GOSUB 3630 AFF/T* 

2410 T*-" FCTN BEGIN POUR JOUER" 

2420 XT=19 

2430 GDSUB 3630 AFF/T* 

2440 T*=" FCTN ERASE POUR FINIR" 

2450 XT-22 

2460 GOSUB 3630 AFF/T* 

2470 CALL KEY (O.FIN, ET) 

24B0 IF FIN<>7 THEN 2510 

2490 CALL CLEAR 

2500 END 

2510 IF FIN014 THEN 2330 

2520 BOTO 210 DEBUT 

2530 IF FINOl THEN 2470 

2540 GDSUB 2560 REBLES 

25SO GOTO 2250 

25&0 REM regies 

2570 CALL CLEAR 

25B0 PRINT "W BUT DU JEU !"::" ELIMI 

NER TOUB LES NAVIRES": i "DE LA SURFAC 

E DU LAC 

H POSBIBILITES DU SOUS-MARIN" 

2590 PRINT :: "DEPLACEMENT AU NORD S 

D EST": :"OUEST PLONGEE REMONTEE"::" 

DNAR AUT 

OMATIEUE PERISCOPE"! : 

2600 PRINT "PROFDNDIMETRE B0U550LE") 

:"ET TIR DE TORPILLES 1121' 



3170 NEXT I 

31B0 BOTO 2250 POUR/FIN 

3190 GOTO 630 POUR/TOUCHE 

3200 REM effacement mire 

3210 FOR 1-10 TO 16 

3220 CALL HCHARII, 5, 112, Ml 

3230 NEXT I 

3240 RETURN 



3260 ] 



: TABt: 



UNE TOUCHE. "| 
2610 CALL CDL0R<2,11,1) 
2620 CALL KEY(0,K,S> 
2630 CALL COLOR(2,l,l> 
2640 IF 5=0 THEN 2610 
2650 CALL CLEAR 

2660 PRINT "W FONCTIONS DES TOUCHES 
: " : J! TAB (7) J "P > PLONGEE" ::: TAB (7) s " 
R > REMO 

NTEE": ::TAB(7) 1 "T > TIR" : : : TAB (7) [ "T 
OUCHES FLECHEES >"!:" DEPLACEMENT 
AU NORD 
SUD" : : 

2670 PRINT " EST ET OUEST" i : : : TAB! 
7);".TAPEZ UNE TOUCHE."! 
26S0 CALL C0LDR<2,11, 1) 
2690 CALL KEY<0,K,S> 
2700 CALL C0L0R(2,1,1) 
2710 IF S=0 THEN 26B0 
2720 CALL CLEAR 

2730 PRINT " P0SSIBIL1TES DBS NAVIRE 
5":i"W BOMBARDEMENT CONTRE PAR LA":: 
" FORCE 

DU VENT"::"W DEPLACEMENT LORSQU'UN": 
:" NAVIRE EST COULE":: 

2740 PRINT "W LE TIRAN D'EAU DE TOUS 
":;" LES NAVIRES EST DE 15 M":: 
2750 PRINT "W SEUL LE PETR0L1ER SIGN 
ALE"::" PAR LE SONAR PEUT RAVITAIL": 
:" LER L 

E SOUS-MARIN SI CELUI":: 
2760 PRINT " CI VA A SON CONTACT PAR 
u :i" DESSOUS-iTABdOH-.TAPEZ UNE TO 
UCHE."! 

2770 CALL COLOR (2, 1 1 , 1 > 
27B0 CALL KEY(O.KjS) 
2790 CALL COLOR 12, 1,1) 
2BO0 IF B=0 THEN -2770 
2810 CALL CLEAR 
2820 RETURN 
2830 REM tir sous mar in 

2B40 TDR=TOR-l 

2850 CALL HCHAR (23, 20+ TOR, 32) 

2860 IF TOR>=0 THEN 2940 

2870 CALL HCHAR (24, 21,32, 9) 

2BB0 T*=" PLUS DE MUNITIONS" 

2890 XT=9 

2900 SOSUB 3540 AFF/T* 

2910 FOR 1=1 TO 40O 

2920 NEXT I 

2930 BOTO 2250 POUR/FIN 

2940 CALL BOUND (-100, -3, O) 

2950 FOR 1=0 TO 30 

2960 CALL SOUND(-100, 1B0-I , I) 

2970 NEXT 1 

2980 IF ABS(C0X)+ABS(C0Y)>1 THEN 630. 

2990 FOR 1-1 TO 25 

3000 CALL SOUNDi-lOO, UO*I,l,-l, I) 

3010 NEXT I 

3020 BOSUB 3200 EFF/MIRE 

3030 NBC=NBC-1 

3040 GOSUB 4310 EFF/CUIR 

3050 FOR 1=5 TO 7 

3060 CALL HCHARd, 1,112,231 

3070 NEXT I 

3080 CX-2 

3O90 IF NBOO THEN 3190 

3100 T»=" BRAVO VOUS AVEZ REUSSI" 

3110 XT=8 

3120 BOSUB 3540 AFF/T* 

3130 T»="A NETTOYER TOUT LE LAC" 

3140 XT=10 

3150 BOSUB 3630 AFF/T* 

3160 FOR 1-1 TO 3O0 



) REM 



[XS-XCI1 



- (YS-YCC 



>-2 THE 



N 3290 

3270 T*="PETROLIER A LA VERTICALE" 

3280 BDTO 3300 

3290 T*=N*(INT(RND*4>+1>»." A LA VERT 

ICALE" 

3300 XT-9 

3310 BOSUB 3540 AFF/T* 

3320 FDR 1=1 TO 400 

3330 NEXT I 

3340 CALL HCHAR (9, 1 ,32,32) 

3350 BOTO 630 POUR/TOUCHE 

3360 REM colision 

3370 FOR 1-1 TO 30 

33BO S0N=INT(RND«B)+1 

3390 CALL SOUND1-100, -SON.O) 

34O0 NEXT I 

3410 BOSUB 4360 COULEURS 

3420 XT=9 

3430 TS^'VOUS AVEZ PERCUTE UN NAVIRE 

3440 GOSUB 3340 AFF/T* 

3450 FDR 1=1 TO 23 

3460 CALL HCHAR ( XS, YS, 137) 

3470 FDR J-l TO BO 

3480 NEXT J 

3490 CALL HCHAR ( XB, YB, 136) 

3500 FOR J- I TO SO 

3510 NEXT J 

3520 NEXT I 

3530 BDTO 2250 POUR/FIN 

3340 REM _. . . T* 

3550 FOR K=l TO 3 

3560 FOR J=l TO 3 

3570 CALL BOUNDI-10, 2000, O) 

35B0 CALL SOUND (-13, 2O0O,O> 

3590 CALL SOUND ( -20 , 2O00 , 30 ) 

3600 NEXT J 

3610 CALL S0UND(-2O.20O0,3O> 

3620 NEXT K 

3630 FOR J-I TO LEN(T*> 

3640 CALL HCHAR ( XT, 3+J, ASC (SE8* IT*, J 

3650 NEXT J 

3660 RETURN 

3670 REM remonte 

3680 NIV=NIV-1 

3690 IF NIV>2 THEN 3BIO 

37O0 FOR 1-1 TO NBC 

3710 CALL HCHAR(XC(I) , VC ( I ) ,136) 

3720 NEXT I 

3730 BOBUB BOBO AFF/S-M 

3740 CALL COLOR ( 16, 1 ,6) 

3750 CALL COLOR ( 15, I , 6) 

3760 CALL COLDR ( 13, 1-, 6) 

3770 CALL COLOR < 12, 1 , 6) 

3780 CALL COLOR (11,1,6) 

3790 CALL COLOR ( 10, 1 , 4) 

3800 CALL COL0R(9,l,6) 

3B10 IF NIVOt THEN 3830 

3B20 CALL C0L0R( 14, 1 ,4) 

3B30 BOSUB 3950 AFF/NIV 

3840 SOTO 620 POUR/VERIF 

3B50 REM plonge 

3860 NIV=NIV+1 

3B70 IF NIV>2 THEN 3B90 

38 BO GOSUB 20 BO AFF/S-M 

3B90 IF NIV-1 THEN 3910 

3900 CALL COLOR (14,1, 1) 

3910 IF NIV<3 THEN 3950 

3920 FOR 1-9 TO 16 

3930 CALL COLOR (I ,1,1) 

3940 NEXT I 

3950 FDR 1=1 TD_4 

3960 CALL HCHAR(24, 1 1+1 , ASC1SEG* I 

NIV>, 1,1) >) 

3970 NEXT I 

39 BO RETURN 

3990 REM «f*.cuir loin 

4000 BDSUB 3200 EFF/MIRE 

4010 CALL HCHAR (16, 10, 120) 

4020 RETURN 

4030 REM itf.cuir.moyen 

4040 BOSUB 3200 EFF/MIRE 

4050 FOR 1=1 TO 3 

4060 FOR J=l TD 3 

4070 CH=-CH+1 

40BO CALL HCHAR ( 13*1, B*J , 120+CH) 

4090 NEXT J 

41O0 NEXT I 

4110 CH-0 

4120 RETURN 

4130 REM a*4 .cuir.pres 

4140 CALL HCHAR116.9, 131,3) 

4130 CALL HCHAR (15, 9, 134, 3) 

4160 RESTORE 4700 

4170 FOR 1-1 TG 12 

4180 READ A,B,C 

4190 CALL HCHAR(A,B,C) 

4200 NEXT I 

4210 CALL HCHAR (12, 9, 119,3) 

4220 RETURN 

4230 REM deplacement cui. 

4240 FOR 1-1 TO NBC 

4250 XC(I) = INT(1HRND) + 11 

4260 YC(I)-INT(9*RND)+21 

4270 IF (XS=XC<I) )+(YS-YC<I) KO THEN 



-DESASSEMBLEUR 

PaSSionn6s du langage machine SUr PC 1500 VOUS La seconde option est (option de DESASSEMBLAGE a proprement 

ailez pouvoir des maintenant decouvnr sa vie secrete, pariw, a paitir des Mnemoniques standards. Elle vous permettra de 

Ce desassembleur utilise les nouveaux codes disassembler vos routines LM en donnant les octets extremes de la 

zone etudiee (N1 et N2). Comme lexemple 4 qui est un sous-pro- 

Antinp MAHIFI I oramme * temporisation (une double boucte). 

u Vous pouvez aussi dans cette option, donner un mot darret (un 

Mndfl riomnini mn&nonique tel qu'il a ete memorise dans les datas) qui stoppera 

, ,° umiipiui. I execution du proqramme a la premiere rencontre du mdp m-rni 

Apjs a»» rente to programme de pros * 6K (module dtoxtension pendant. Cela 5SX permel de deSSnbleM? Li" 2S Sol? a 

SfnT 'ftT POU,ez lu l. adjo.FxJre to programme de la tigure 1 oonnattre Irs adresses exactes de relour des instnrctons danl 

afln de vender la correspondance des codes sur les tableaux al et I'exemnle 5 ennnaissant lad™™ h™*^ h„ r;~<-.Jr~ * ,7Z?Z 



PC1SOO 



correspondance des codes sur les tableaux a) et lexempte S. connaissant ladresse derrtree de [-instruction LOCK 
ISSSXrJ? ""* * ''"**" °" ™ S *™ " ** «» ^^ K^nrSSI 7=d?ele e rdSar, ea N', e 

oc3S5 E^S """""I? "R"*? " '"'?*"'' ASC " ™»- ^TS^ au^,1 q „e™„7£ SS^S^ST 
S£ ilf i^ „' disassembler. Dans I'exempto 1 on vori apparal- toupurs to relancer par CONT et II s'arretera a la prabai™ ins°£ 
tre les mots du basic su.vis de leur adresse d'entree (zone 0054 - ton de retour basic «"■*'* procnaroe instruc 

C%L F.^M?™','™ X t"S e 2 i °" ? tes ,. messi '? e s >»•* * C34F » Le programme peut er/e utilise aussi en repondanl Enter (RC) aux 
SSage Sign™ SsTcT, ££"*' mcT 3 m "" re " "*" !!5£«»fi«i™J«!-- S™"" Sexempto J de'trou- 



5:"DESASSErl3LEUR 

PCM5BB 
6:REr1 AUTEUR 

fimoim HAHIEU 
3:REM CODES L.n 

18: DATA "SBC, XL 
8, "S8C, YL",B 
SBC, UL", B, "? 

a, "ihc xl", a. 

INC YL",0, 



"SPU", 

30: DATA "ADC XL 
a, "ADC YL", 8, 
ADC UL", a, 
a, "dec xl", a, 
DEC YL", a, "Dl 
UL", 



"BE 



7", 



35: DATA "?", 0, "AD 
C, XH", B, "ADC, Y 
H", 8, "ADC, UH", 

37I0ATA "UEJ C2,, 
", 2, "UEJ 02-, 8 
, "UEJ E2 re.ur 
n",B, "UEJ F2", 
B 

48:DATA "ADC, CX)" 
. B, "ADC, CY)", a 
, "ADC, CU)", 8, " 
?",B, "SDE, CX)" 

,0 

45:DATfl "SDE, CY)" 
, 8, "SDE, CU)",B 
, "7",e, "BCS +■ 
, 1, "BCS -", 1, " 
ADC, C)",2 

47:0ATA "ADI, A, ", 
1, "UCS , ", 1, "D 
RR, CX)", 8, "RPU 
", 8, '■RUF", 

50:DATA "LDA , XL" 



, YL",a 95: DATA ' 



"SP 148:0ATA "EOR , 



55: DATA ' 
ft , XH' 
, YH", i 

H", 8, "?", 0, "UE 



INC 

UL",B 

i5:DATA "?", 8, "SB 
C, XH", a, "SBC, Y 
H",0, "SBC, UH", 
8, "?",B, "UEJ C 
8", a, "UEJ oa,, 
",2 

17:DATR "UEJ E8", 
8, "UEJ F8", B 

20JDATA "SBC, CX)" 
,0, "SBC, CY>",0 

, "sbc, cuv, a, ■■ 

?", 0, "SJN CX)" 

,a 

25: DATA "SJN CY)" 
. 0, "SIN CU)", 8 
, "?",8, "BCR +" 
, 1, "BCR -", I 

26:DATA "SBC, O", 
7, "SBI, A, ", 1, " 
UCR , ", J, "R0R" 



J CI, 



"UEJ 



5?: DATA "UEJ E4", 
0, "UEJ F4", 

60: DATA "LDA , <X) 
",B, "LDA , CY)" 
, 8, "LDA , CU>", 
8, , '?",0, "LJN , 
<X)",B 

65: DATA "LIN , CY) 



, "LDA , 

67: DATA "LI 

i, "UHR , 



?0:DATA "CPA , 
, 0, "CPA , Yl 
, "CPA ,UL", 



, "DEC \ 

c U-, a 

75: DATA "?", 8, "CP 
A ,XH", 8, "CPA 
, YH", 8, "CPA ,U 
H", 8, "?", 8, -iiE 
J C6", 8, "UEJ D 

6", a 

77:DATA "UEJ E6", 
8, "UEJ F6",8 

B8:DATA "CPA , (X) 
", 0, "CPA , CY)" 
,8, "CPA , CU)", 
, B, "LDE , 



CX)' 1 



(Y) 



, "CPA , C)",2 
87: DATA "CPI, A, ' 
J, "UHS , ", 1, " 
RL, CX)", 0, "?" 
B, "CJN", a 
98:0ATA "STA , XI- 
, 0, "STA , YH", 
, "STA , UH", 8, 
NOP", 8, "LDI, X 
, ", I, "LDI, YH, 



188: DATA "AND , (X 
-.8, "fiND , <Y)' 
>8, "AND , CU)", 
8, "?", 8, "ANI, 
X), ", 1 

J8S:DATA "ANI, CY), 
", 1, "ANI, (U), ' 
- 1, "?",8, "BZR 
+", 1, "B2R 

]0?:DATO "AND 
,2, "ANI, A, 
"UZR 



, 1 



SHL 



', 8, "fiNl, C), ' 
3, "REC", 8 

118:DATA "5TA , XL 
,8, "STA , YL", 
, "STA ,UL",B, 
?",8, "LDI, XL, 
, 1, "LD1.YL, ", 

•15:DATA -LDI. UL, 
, 1, "?", 8, "RTI 
"RETURN", 8 



"LDI.S, ■ 



, 0, "DEC X", B 



"UEJ CA" 



I17:DATA "UEJ DA", 
B, "UEJ EA",0, " 
UEJ FA", B 

128: DATA "ORA , CX) 
", 0, "ORA , CY)" 
,0, "ORA , tU>", 
8, "?",B, "ORI, C 
X), ", I 

!25:DATA "ORI, CY), 
", 1, "ORI, (U), " 
, 1, "?",B, "BZS 
+ ", 1, "BZS -", I 
, "ORfi , ()", 2 

127:DATA "ORI, A, ", 

•uzs 



3L-, 



"ori, c; 
"sec", a 



138=DATA "DCS , 

",8, "DCS , CY)" 
, 0, "DCS , CU)", 
8, "?",8, "CP1.X 
H, ", ], "CPI, YH, 

I35:0ATA "CPI, UH, • 
, 1, •?", 0, "DCA 
, (X)",8, "DCA , 
CY)",B, "DCA , C 



145:DATA "Bl 



• I, 



, (U), " 
"BUR 



LL ' 



165: DATA "ADI, CY), 



"AD I, 



225: DATA "SIE", B, " 
!", 8, "SBC, HO 
",2, "HLT", 8, "S 



dp", e, ' 
", a, " i ' 

238: DATA " 



"i I, "IN 



*", 1, "BUR -", 1 

, "EOR , ()-, 2 
147: DATfi "EAJ , ", ; 

. "UrtJ , 

C A", a, 

, ", 3, "2ND", B 
158: DATA "STfi , (X 

", 8, "STA , CY) 

, 0, "STA , CU)", 

8, "?",0, "CPI,: 

L, ", 1 
155:DATA "CPI, YL, ' 
■ 1, "CPI.UL, ", 
. "?", 8, "BCH +' 
, 1, "BCH -", I,' 
STA , C)",2, "CI 



248: DATA "ADC, i 



245: DATA "!",0, " 
,8, "ADC, HO 

2, "?",0, '■:•■, I 

"DRR, IK) ",8, 
258: DATA " ! ", 0, " 



157:0ATA "UEJ CE", 
8, "UEJ -DE, ", I, 
"UEJ EE", 8, "UE 
J FE",8 

150: DATA "BIT , CX) 
", 8, "BIT , CY)" 
,B, "BIT , CU)", 



"OFF" 



268: DATA ' 



,ttx 
, itv 

, ItL 



+ ", 1, "BUS ■ 
, "BIT , O-, 

1G7:DATA "Bll.l 
1, "UUS , ", . 
EC A", a, 
), ", 3, "?", 8 

2BB:REH 2nde TABL 
E 

218:0ATA "!", 8, "!" 



22B:DATA "SBC, HCX) 
",B, "SBC,#CY)" 
,8, "SBC, ll(U)", 



ITA "CPA , »(X 
,fl, "CPA , IKY 
,8, "CPA , II CU 



.8, "CPA ,«C) 
,2, "!", 8, "!",! 
, "DRL ,#CX)",I 




B, "LDX , S" 

LDX ,P", 

2S5:DATA " ! ", 8 

, e, "psh x" 

PSH Y",B, "PSH 

U", 8, * 

H 0", I 
297: DATA ' 

,8 
300: DATA • 



,2, " 
, "!",0, "ORI, *C 
), ",3, "!",8 
338: DATA "DCS , Hex 
)",0, "DCS , IKY 
)",a, "DCS ,*CU 
>",8, "!",8, "OF 



■,8 335: DATA "DCA , «(X 
)",B, "DCA , HCY 
I", B, "DCA, H CU) 
',8, "!",8, "ATP 
', 8, "f, B, "ATT 



"EDR , 
"EOR , 
"EOR , 



I, H(X), 

342: DATA "B 
. ", I, "B 



", 8, "PS 
" ! ", 8 
", 8, " ! " 



"ftND , B CX 
"AND , HCY 
)", 8, "AND, (KU) 
", 8, "!", 0, "ANI 
, «(X), ", J, "ANI 
, tICY), ", 1 
302IDATA "ANI, SCU) 
, ", 1, "!",B, •■{« 



, "ANI, HO, ", 3 
. "!",0 
318: DATA "POP X", B 

, "pop Y", a, "po 

P U",B, ";",0, " 
STX ,X",B, "STX 
r V', B, "STX ,u 
■,8, "!",B 

315:DATA "POP A", 
a. n !",8, "TTA", 
8, "ITA", 8, "ADR 
X", 8, "ADR Y", 
8, "ADR U", 8, "! 
'", B 

32B:DATA "ORft, HCX) 
•,B, "ORA, HCY)" 
, B, "ORA, HCU)", 



,B, "ORA ,HC) 



"CDU", 8, "! ", 8, 
"STA , HO ",2, 

"R1E", 8, "AtlB", 



368:DATA "Bl 



, 0, "?", 8, "ADI, 
HO, ",3, "!",8 
1008: "D"WAIT 20:R 
=0:PRJNT "DP 
TION ALPHA C 
0, RC) 7": 
GOSUB ?E3: IF 
R*="0"LET R= 
1 

1082:Q=Iin*=" ': 
MA IT 28: 
|*R1NT "OPTIO 
N IINEnONIBUE 
CO, RC) ?": 
GOSUB 2E3:1F 
R4="0"LET 0= 
8 

1B03:T*="": INPUT 
"IITRE ?";T* 

18B4:S»= INPUT 

D, ARRET 



?"iS* 
1BB5:N2=B:HAIT 8: 
PRINT "ZONE 
A DESASSEtlBL 
ER ": CURSOR 
28: INPUT "Nl 

?";ni 

1886: INPUT "N2?"; 



1087: IF N2=0LET N 

2=&FFFF 
100B: TEXT :LPR1NT 

T*:CSIZE |: 

LF 2 

1B18:l=0:CLS :F0R 

I-N1-K8000TO 

H2-S8000: «■: 

*S8008vM^ 

PEEK K 
10Z8:A=JNT (N.'ll 
I830:B=N-16*A 
1040:C=INT (K^409 

G) 
1B50:D=1NT CCK-1 

^896)^256) 
!06B:E=1NT CCK-48 

961;C-256>D)' 



1090:FOR J^ITO 6: 
7=0CJ):«*CJ) 
5CHR4 CC4B*Z 



tB95: IF QTHEN 150 

8 
1188: IF L>8LET 

L-J:n*=A*+B* 
:60TO 15B0 

1280: IF rt*="ZND" 
LET T=2BB 

1281: IF rl*=S*THEN 
STOP 

12I8:REST0RE II 

e*B-»T:F0R G= 
8TO A: READ r 
L:NEXT G 



1300: 

I499:REI1 AFFICHAG 

1508:Z*=CHR» CN«R 

151fl:PRINT C*iD*; 
E*;F*;": ";A 

*;B*i ;Z* 

; ■' " ; n» 

152BILPR1NT C*;D* 
;E*;F»i": ' 
A*;B«i": " 
*;" ";n« 

1590: NEXT 1 

1595: LF B 

I 500: END 

2BB0:R*=INKEY4 : 

IF R*=""G0TO 
2E3 

2810: BEEP 1 

RETURN • 




Tl 99 BASIC 



i Suite de la page 22 



4280 
4290 
4300 
4310 
4320 
4330 
4340 
4330 
4360 
4370 
43B0 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
44B0 

4500 
4510 
4520 
4530 
0<1) 
4540 
4350 
4560 



CALL HCHAft(XCCI) ,YC<I) , 

NEXT I 

RETURN 

FOR 1-11 TO 21 

CALL HCHARCI, 21, 138,9) 

NEXT I 

CALL HCHARIXS,YS,137) 

BOTO 4230 

REM couleurs 

RESTORE 4720 

CALL SCREEN (2) 

FOR 1=1 TO 16 

REAP A, B 

CALL COLOR(I,A,B) 

NEXT I 

RETURN 

REN ascil & inltia 

RESTORE 4560 

FOR 1-1 TO 53 

READ A, A* 

CALL CHARCA.AO 

NEXT I 

FOR 1=1 TO 6 

READ PS (I! 



;2, EOEOCOCOBOBO, 133,557 



NEXT I 

READ N*(t.),N«<2> , N*<31 ,N*<4) ,EL 

EL0I2) ,ELD<3) 

RETURN 

REM data 

DATA 152, 1E1E181B1«18FFKF, 153,8 



4610 DATA 15O.0FOEO6O3O1, 151,FF6666F 

FFFFF7F3F, 158, FF6666FFFFFFFFFF, 101 , 

0O376F37 

603, B7, OOE444S4FF404 

4620 DATA 1 12, O, 104, 0,63,OB1C1C1GOB1 

036 ,61, 3838383838383838 

4630 DA TA 1 30,070703030101, 131 ,FFFFF 

FFFFFFFFFFF, 132, EOEOCOCOBOBO, 133, 557 

F3F3F1F1 

FOFOF, 134, 55FFAAFFFFFFFFFF 

4640 DATA 135, 56FEFCFCFBF8FOFO, 113,0 

OOOOOOOOOFFFFFF, 1 14.FFFFFFFFOOFFFFFF 

, 115.BDB 

DBDBDOOFFFFFF 

4650 DATA 1 16, FFBOFFFFFFFFFFFF, 117.F 

F00FFFFFF81BDBD, 118.FF01FFFFFFFFFFFF 

, 119, OOF 

FFF9999FFFFFF 

4660 DATA SURF, 1 M',5 M!,20 M.50 M,F 

DND.ESCORTEUR.TORPILLEUR, PORTE AVIDN 



4670 DATA 1, 
8, 145,5,6,26 
47,1,5,3 
1.14B, 1,5, 32,149 



12,224,7,27,144,1,7,2 
4,1,6,27,146,6,5,26,1 



FFFFFFFFFFF, 1 

F3F3F1F1 

FOFOF, 134.55FFAAFFFFFFFFFF 

4640 DATA 135, S6FEFCFCFBFBFOFO, 113,0 

OOOOOOOOOFFFFFF, 114, FFFFFFFFOOFFFFFF 

,115,BDB 



FOOFFFFFFB1BD8D, 1 18.FF01FFFFFFFFFFFF 
FFF99 99FFFFFF 



4680 DATA 4,30,150,1,4,31*151,1,4,32 

, 158,1 

4690 DATA 7,0,156,7,4,157,6,1,153,6, 

2,155,6,3,154 

4700 DATA 16,B, 130, 16, 12, 132, 15,8, 13 

3, 15, 12, 135, 14, 8, 113, 14,9, 114, 14, 10, 

115,14,1 

1,114,14,12,113 

4710 DATA 13,9,116,13,10,117,13,11,1 



18 

47ZO DATA 1 



1 ' 1>1, 



, 14, : 



1, 16 



787B7B7B787FFFO, 154.E1E1E1E1E1E1FFOF 
, 155, FFF 

FFFFFFFFFFFFF, 156.030F1F3F7F7FFFFF, 1 
57 , COFOFBFCFEFEFFFF 



4570 DATA 144, FF7FSF1F0FO7O3O1 , 145>F 

FFEFCFBFOEOCOBO, 146.FFFFFFE7E7FFFFFF 

, 147,000 

0002020202020, 148, 0000000404040404, 

49, FFFFFFFFFFFFFFFF 

45B0 DATA 136, 0OO70303FF7F3F, 137,003 

C7E7E7E7E3C, 13B, O, 120, 0O3C3C3CFF7E3C 

,121,000 

O0O0OOFO60F0F, 1 22 , 0OOO0OO0FF66FFFF , 1 

23, O00000OOF060F0F0 

4590 DATA 1 24 , OFOFOFOFOFOOFFFF , 1 25 , F 

FFFFFFFFFOOFFFF, 1 26, FOFOFOFOFOOOFFFF 

, 127, 7F7 

F3F3F1F1FOFOF, 1 28, FFFFFFFFFFFFFFFF, 1 

29, FEFEFCFCFBFBFOFO 

4600 DATA 144, 7F3F1F0F070301, 145, FFF 

FFFFFFFFFFFFF, 1 46 , FFAAFFFFFFFFFFFF , 1 

47,40402 

02O1O1OFEFF, 148, 1F0F0FOF0F0FOF0F, 149 

, FFFF83BBBBBBBBBB 

4610 DATA 150,0F0E060301,151,FF6646F 

FF FFF7F3F, 158,FF6666FFFFFFFFFF, 101,0 

00376F37 

603, 87, 00E44454FF4O4 

4620 DATA 1 12, 0, 104,0, 63,081C1C1C0S1 

C36, 61 , 38383B383B38383B 

4630 DATA 130,070703030101, 131 ,FFFFF 




tD'lKA ' 



